MSFlexGrid延时显示 - 编程论坛

#2

风吹过b2013-05-14 17:25

你添加和删除后，刷新了 MSFlexGrid 或者刷新了与 MSFlexGrid 绑定的 data 控件吗？

前面回答了这个问题，忘了还有一个什么问题，百度来的。

#3

ronaldo999992013-05-14 18:03

回复 2楼风吹过b

是，就是这个问题，一直没有解决！当时纯粹不显示，现在显示了可是就是延时！

#4

Artless2013-05-14 19:56

数据量？

#5

ronaldo999992013-05-14 20:26

回复 4楼 Artless

什么数据量？全部程序如下：
Private Sub Command2_Click()
Dim db As Database  '数据库
Dim rs As Recordset  '记录集，数据表
Dim ss As String

s = App.Path + "\用户信息.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase(s) '打开库

ss = "select * from 用户信息 where 姓名='" & Text1.Text & "'"

Set rs = db.OpenRecordset(ss, dbOpenDynaset)       '打开表，或一个记录集

rs.Delete
Data1.RecordSource = "用户信息"
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Public Sub yanshi()
savetime = Timer
While Timer < savetime + 0.5 '
DoEvents
Wend
End Sub
谢谢！

#6

lowxiong2013-05-15 15:59

当记录数小于100条时，绑定数据库的控件显示数据的速度还能忍受，当记录数达到1000条以上时，可能要好几分钟后才能显示出所有数据，有时会让你觉得死机了，使用分页显示的方法可以解决。

#7

ronaldo999992013-05-15 20:00

回复 6楼 lowxiong

没有啊，记录不到十条的！