主题：加载很慢

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

 

 

没用啊

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
Dim arys As List(of String()) = DataTables("应付款项").GetValues( "司机|车牌|出车日期", "出车日期 is not null")
p.Visible = True
p.Maximum =  arys.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

Dim idx As Integer = 0
DataTables("应付款项").StopRedraw
DataTables("应付款项").DataCols("客户").RaiseDataColChanged() '重置客户列
For Each ary() As String In  arys
    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

报错了 未将对象设置引用到对象的实例

 

对了我突然想到 处理过的数据也是存在同一张表里 我要把未经处理的数据加载 已经完成的忽略 那是不是在表里加一列逻辑列 初始默认是否

加载时进行判断 筛选出未处理的

 

 

可以加一列逻辑列，处理过的，赋值为true。

 

或者，判断列也行，比如某列为空，就是没处理过的。

提交到下一张表的按钮 只要遍历当天的数据对比 之前的数据不需要对比 也是通过逻辑列判断 还是表有隐形属性可以区分哪些是当天数据

那么 重置按钮也要判断 还是可以只重置当前表数据 抱歉 第一次 自己开发 问题比较多

1、提交按钮的代码不用改，查所有数据和查当天的数据没太大区别。

 

2、筛选一下，只重置某些数据即可。如代码

 

Dim arys As List(of String()) = DataTables("应付款项").GetValues( "司机|车牌|出车日期", "出车日期 is not null and 运费 is null")

这样说来我只要在刷新按钮中加代码判断哪些是空值才加载就行了？

 

 

是的，加上筛选条件即可。

好 谢谢 上面那个重置优化加进度条的 一直报错 您帮看看