数据库查寻很慢的问题.

XinJW 2008-02-12 04:45:39

现在有一问题,就是窗体启动时就读取数据库,现在数据多了,查寻也就很慢了,如何实现先出现一lable显示数据查寻中,当数据库全部列出之后就消失.

If rsSearch.EOF = False Then
PanelReadDatabase.Visible = True

For ncntr = 1 To rsSearch.RecordCount
lstCustom.AddItem rsSearch.Fields("CustomNO")
rsSearch.MoveNext
Next
End If

PanelReadDatabase.Visible = False

这样为什么不行呢.跟本就不显示,如果在PanelReadDatabase.Visible = True之后加一个msgbox 的话就显示,然后点确定后,后面也执行,请问这是什么问题,当然程序中肯定不能加msgbox.

...全文

85 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

Ankeyfu 2008-02-13

打赏
举报

問題在於當加載大量數據時窗體的控件還來不及重繪.所以顯示出來也是看不到的.你可以這樣:





If   rsSearch.EOF   =   False   Then 

        PanelReadDatabase.Visible   =   True 

        Me.Refresh '加上這一句

        For   ncntr   =   1   To   rsSearch.RecordCount 

                lstCustom.AddItem   rsSearch.Fields("CustomNO") 

                rsSearch.MoveNext 

        Next 

End   If

也可以這樣:





If   rsSearch.EOF   =   False   Then 

        PanelReadDatabase.Visible   =   True 

        DoEvents '加上這一句

        For   ncntr   =   1   To   rsSearch.RecordCount 

                lstCustom.AddItem   rsSearch.Fields("CustomNO") 

                rsSearch.MoveNext 

        Next 

End   If