主题：加载很慢

进度条怎样在数据加载时才显示 不加载是隐藏

 

红袍版主 能否直接在上传的例子里帮忙把调度配载重置车牌列 和应付款项的客户与车牌列重置优化

还有进度条的问题  拜托

 

For Each ary() As String In DataTables("配载订单").GetValues( "车牌|车型")
    Dim filter As String = "车牌 = '" & ary(0) & "' and 车型 = '" & ary(1) & "'"
    Dim fdr As DataRow = DataTables("配载订单").Find(filter)
    DataTables("配载订单").DataCols("车牌").RaiseDataColChanged(fdr)
Next

 

调度配载 重置车牌 是这样加在按钮事件上吗，我加了 点击报错 {未将对象设置运用到对象实例上}

For Each ary() As String In DataTables("应付款项").GetValues( "司机|车牌|出车日期")
    Dim filter As String = "司机 = '" & ary(0) & "' and 车牌 = '" & ary(1) & "' and 出车日期 = #" & ary(2) & "#"
    Dim fdr As DataRow = DataTables("应付款项").Find(filter)
    DataTables("应付款项").DataCols("司机").RaiseDataColChanged(fdr)

按钮事件报错 逻辑是先得重置客户列 从“客户地点”得到对应的地点 才能按照项目 城市 地点 得出车型的运费 之后才比较是否是同一个司机 同一部车 同一天 得到不相同地址的点费 然后重置车牌得到装量

 

表达式包含无效日期常量“##” 6377条数据花了5分钟  这是几天的数据 这要是一个月 不得玩完？我再说一说逻辑 您看怎样使数据处理更为有效

目的：

自动运算出运费和点费

用应付款项的项目匹配价目表的项目 城市匹配城市 地点匹配地点 最后 e.DataRow("运费") = jdr("车型_" & e.DataRow("车型"))

得出运费后 如果是同一个司机 同一天 同一部车 把运费进行对比 取得最高运费 其他返回空值 接下来把最高运费的送货地点作为基础与其他返回空值的订单的送货地点对比 相同地点的点费赋予空值 不同的赋予： 

Select Case drs(i)("车型")
                Case "9M6"
                    drs(i)("点费") = 80
                Case "6M2","6M8","7M6"
                    drs(i)("点费") = 60
                Case "4M5","4M2"
                    drs(i)("点费") = 30
最后重置车牌得到装载量

过程是否能简化

我也头疼 公司就这样算运费跟点费的 想自动化 如果是按公里数加起运费也不需要这么复杂 上面的代码为啥子要重置两次客户列 我想这样行不行 重置客户列与车牌列不触发运费计算与点费计算 分开用按钮实现 如果不行 这个又怎样加进度条 不然以为死机了

然并卵 我还是加进度条吧 是不是加到

DataColChanged

里去

 

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

 

 

没用啊

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

 

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

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