主题：加载很慢

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
Dim ls As new List(of DataRow)
If ls.count > 0 Then
    p.Visible = True
    p.Maximum =  ls.Count - 1 '设置最大值
    p.Minimum = 0 '设置最小值
    p.Value = 0 '设置当前值
End If
Dim idx As Integer = 0
DataTables("应付款项").StopRedraw
DataTables("应付款项").DataCols("客户").RaiseDataColChanged() '重置客户列
For Each ary() As String In DataTables("应付款项").GetValues( "司机|车牌|出车日期", "出车日期 is not null")
     idx += 1
    p.Value = idx '加在这里
    Dim filter As String = "司机 = '" & ary(0) & "' and 车牌 = '" & ary(1) & "' and 出车日期 = #" & ary(2) & "#"
    Dim fdr As DataRow = DataTables("应付款项").Find(filter)
    DataTables("应付款项").DataCols("司机").RaiseDataColChanged(fdr)
Next
DataTables("应付款项").ResumeRedraw
p.Visible = False

没用啊