以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据表在load中 由于数据量太大 需要进度条  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151531)
--  作者：aoc103
--  发布时间：2020/6/26 22:51:00
--  数据表在load中 由于数据量太大 需要进度条
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
--  作者：有点蓝
--  发布时间：2020/6/27 10:44:00
--  
load没有办法加进度条。异步也不行