# Re: Sorry..修正一下程式码....

Posted by AOK(帝王世纪) on November 03, 1999 at 22:10:33:

In Reply to: Re: 请列出您中间操做的那段程式或DE的安排方式 posted by AOK(帝王世纪) on November 03, 1999 at 22:06:09:

: : : : 资料库中资料经过异动后
: : : : datareport印出的内容还是原来的
: : : : 要如何解决请帮忙...

: : 程式段:
: : Private Sub cmdPrint_Click()
: : DataEnvironment1.Commands("Command1").Parameters(0) = sYm
: : datareport1.show
: : End Sub
: : DE安排:SQL参数
: : select * from car21 where dt2101 = ?
: : 请帮忙...

: 只要Command物件内含资料录集合 , 它就不会重新执行SQL
: 指令,假设你只有指定如下:
: Set [ObjectName].DataSource = DataEnvironment1
: [ObjectName].DataMember = "Command1"
: 这会使得Command物件执行SQL指令一次 , 接着便含有资料
: 录集合了 , 所以接下来你再按Command键就没效了.

: 解决方法:类向大汉堡前辈所说的 , 先把资料录集合关闭,
: 然后再执行SQL指令:判断的程式码如下 --

: If DE1.rsCommand1.adStateClosed Then
: DE1.rsCommand1.Close '关闭资料录集合
: End If
: .
: .
: 接下来就可再加上你以上的程式码了.

::修正如下 --
If DE1.rsCommand1.State <> adStateClosed Then
DE1.rsCommand1.Close '关闭资料录集合
End If

Follow Ups: