我的要求是在程序查询时显示 "查询中,请稍候>>>" 后面的">"是用timer动态加上去的

但在查询时特别是多数据情况下,timer控件会停止计时,要等到所有数据查询出来才继续计时,这样就达不到效果了,请高手指教一下,谢谢了



不查询时label1.Visible=false的


Dim i%
Private Sub Form_load()
Label1.Caption = "查询中,请稍候"
Timer1.Interval = 200
End Sub


查询语句........

Private Sub Command2_Click()

label1.Visible=true

select * from table

....

....

label1.Visible=false

End sub



Private Sub Timer1_timer()

if label1.Visible=true then
i = i Mod 5 + 1
Label1.Caption = "查询中,请稍候" & String(i, ">")

end if
End Sub


[ 本帖最后由 jzhandly 于 2009-10-8 15:04 编辑 ]

我指的是查询的数据量大时,没有效果
如果是查询数据量小的情况下,一闪儿过,也没有效果