主题：关于窗口进度条问题

'''=======删除所有行=======
Dim tb1 As Table = Tables("标录分析_Table01")
'tb1.StopRedraw
For i As Integer = tb1.Rows.Count - 1 To 0 Step -1
    tb1.Rows(i).Delete()
Next
''======加载球号=======
e.Form.TimerEnabled = False

Dim drs = DataTables("开标记录").Select("中标球号 > 0")

StatusBar.Message1 = "正在添加"
StatusBar.ProgressBar.Visible = True
StatusBar.ProgressBar.Value = 0
StatusBar.ProgressBar.Maximum = drs.count
StatusBar.Refresh
For Each fdr As DataRow In drs
    Dim ndr As DataRow = DataTables("标录数据").AddNew()
    For Each dc As DataCol In DataTables("开标记录").DataCols
        If DataTables("标录数据").DataCols.Contains(dc.Name) Then
            ndr(dc.Name) = fdr(dc.Name)
        End If
    Next
    StatusBar.ProgressBar.Value += 1
    StatusBar.Refresh
Next

tb1.Sort = "开标日期,开标时间"
'tb1.ResumeRedraw