[求助]执行代码总是等全部执行完毕才显示? Post By:2013/3/24 23:20:00 [只看该作者]
Dim p AsWinForm.ProgressBar p = e.Form.Controls("ProgressBar1") p.Maximum = MainTable.Rows.Count
'设置最大值 p.Minimum = 0 '设置最小值 p.Value = 0 '设置当前值 For i As
integer = 0
To
MainTable.Rows.Count - 1 MainTable.Rows(i)("第一列") = i If i Mod
100 = 0 p.Value = i '当前值为已经完成的行数 End
If Next