主题：点击“统计”，跳出一个窗口显示“进度条”

MainTable.AddNew(1000)
Dim p As WinForm.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 Then
        p.Value = i '当前值为已经完成的行数
    End If
Next

上面的代码，正常执行。