为什么我在表事件datacolchanged上加入一下代码,打开表就要等待较长时间,有什么方法可以优化打开时间吗?
If e.DataCol.Name = "订单号" Then '发生变化的是产品列.
'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
e.DataRow("在制数量") = DataTables("生产数据").sqlCompute("Count(临时码)","[订单号] = '" & e.NewValue & "'")
e.DataRow("已完成数量") = DataTables("生产数据").sqlCompute("Count(包装)","[订单号] = '" & e.NewValue & "'")
e.DataRow("不良数量") = DataTables("生产数据").sqlCompute("Count(产品状态)","[订单号] = '" & e.NewValue & "'")
e.DataRow("开始日期") = DataTables("生产数据").sqlCompute("min(投入时间)","[订单号] = '" & e.NewValue & "'")
If e.DataRow("未完成数量") = 0 Then
e.DataRow("结单日期") = DataTables("生产数据").sqlCompute("max(包装时间)","[订单号] = '" & e.NewValue & "'")
Else
e.DataRow("结单日期") = Nothing
End If
End If