📄 20975.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: Sorry..修正一下程式码....</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: Sorry..修正一下程式码....</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by AOK(帝王世纪) on November 03, 1999 at 22:10:33:<p>In Reply to: <a href="20974.html">Re: 请列出您中间操做的那段程式或DE的安排方式</a> posted by AOK(帝王世纪) on November 03, 1999 at 22:06:09:<p>: : : : 资料库中资料经过异动后<br>: : : : datareport印出的内容还是原来的<br>: : : : 要如何解决请帮忙...<p>: : 程式段:<br>: : Private Sub cmdPrint_Click()<br>: : DataEnvironment1.Commands("Command1").Parameters(0) = sYm<br>: :     datareport1.show<br>: : End Sub<br>: : DE安排:SQL参数<br>: : select * from car21 where dt2101 = ?<br>: : 请帮忙...<p>: 只要Command物件内含资料录集合 , 它就不会重新执行SQL<br>: 指令,假设你只有指定如下:<br>:    Set [ObjectName].DataSource = DataEnvironment1<br>:        [ObjectName].DataMember = "Command1"<br>: 这会使得Command物件执行SQL指令一次 , 接着便含有资料<br>: 录集合了 , 所以接下来你再按Command键就没效了.<p>: 解决方法:类向大汉堡前辈所说的 , 先把资料录集合关闭,<br>:    然后再执行SQL指令:判断的程式码如下 -- <p>:  If DE1.rsCommand1.adStateClosed Then<br>:     DE1.rsCommand1.Close '关闭资料录集合<br>:  End If<br>:      .<br>:      .<br>: 接下来就可再加上你以上的程式码了.<p>::修正如下 --<br>  If DE1.rsCommand1.State <> adStateClosed Then<br>     DE1.rsCommand1.Close '关闭资料录集合<br>  End If<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20975--></ul><!--end: 20975--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -