以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教：事件代码中有若干个遍历过程，进度条代码该如何设置？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125360)
--  作者：bahamute
--  发布时间：2018/9/27 8:32:00
--  请教：事件代码中有若干个遍历过程，进度条代码该如何设置？
请教，如下代码，如何用一个进度条来表示进度？

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


for i as integer = 0 to dt.datarows.count -1 
    ...................
next

for i as integer = 0 to t.rows.count -1 
    dim r as row = t.rows(i)
    ...................
next
--  作者：有点甜
--  发布时间：2018/9/27 8:48:00
--  

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
Dim dt = DataTables("表A")
Dim t = Tables("表A")
p.Minimum = 0
p.Maximum = dt.DataRows.count+t.Rows.count
p.Value = 0

For i As Integer = 0 To dt.datarows.count -1
    msgbox(1)
    p.value += 1
Next

For i As Integer = 0 To t.rows.count -1
    Dim r As Row = t.rows(i)
    msgbox(1)
    p.value += 1
Next