# Re: 请列出您中间操做的那段程式或DE的安排方式

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

In Reply to: Re: 请列出您中间操做的那段程式或DE的安排方式 posted by Lai on November 03, 1999 at 14:37:47:

: : : 资料库中资料经过异动后
: : : 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
.
.
接下来就可再加上你以上的程式码了.

Follow Ups:

- Re: Sorry..修正一下程式码.... AOK(帝王世纪) 22:10:33 11/03/99 (0)