数据表在load中由于数据量太大需要进度条 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

With DataTables("TBL_商品表")

If e.Sender.checked=False

.LoadFilter="" '一定要清除加载条件

.LoadTop="100 Percent"

.Load

e.Form.Controls("BtnFirst").Visible=False

e.Form.Controls("BtnLast").Visible=False

e.Form.Controls("BtnNext").Visible=False

e.Form.Controls("BtnPre").Visible=False

e.Form.Controls("ComEachpage").Visible=False

e.Form.Controls("Comfenye").Visible=False

'Dim count = DataTables("TBL_商品表").sqlCompute("count([_identify])") '统计行数

'Dim p As WinForm.ProgressBar = e.Form.Controls("ProgressBar1")

'p.Visible=True

'p.Maximum =count '设置最大值

'p.Minimum = 0 '设置最小值

'p.Value = 0 '设置当前值

'For i As Integer = 0 To count - 1

'If i Mod 10 = 0 Then

'p.Value = i '当前值为已经完成的行数

'End If

'Next

''p.Visible=False

知道估计要做异步，但不知道要怎么做，有的时候取消分页加载数据，一次好几万条，就会卡住，只能用进度条显示，不知道怎么弄

Else

.LoadFilter="" '一定要清除加载条件

.LoadTop=e.Form.Controls("ComEachpage").value

.LoadPage=0

.load()

e.Form.Controls("BtnFirst").Visible=True

e.Form.Controls("BtnLast").Visible=True

e.Form.Controls("BtnNext").Visible=True

e.Form.Controls("BtnPre").Visible=True

e.Form.Controls("ComEachpage").Visible=True

e.Form.Controls("Comfenye").Visible=True

End If

End With

主题：数据表在load中 由于数据量太大 需要进度条