For Each r1 As Row In Tables("入库导入_采购订单")
If r1("本次交货") IsNot Nothing Or r1("本次交货") > 0
Dim r2 As Row = Tables("入库表").AddNew
r2("编号") = r1("编号")
r2("入库数量") = r1("本次交货")
Else
End If
Next
用这段代码在入库表里新增数据，入库表里的数据需要跨表统计，
入库表：
Select Case e.DataCol.Name
Case "入库数量"
Dim pr As DataRow
pr = DataTables("库存").Find("编号 = '" & e.DataRow("编号") & "'")
If pr IsNot Nothing Then
DataTables("库存").DataCols("编号").RaiseDataColChanged(pr)
End If
End Select
库存表：
If e.DataCol.Name = "编号" Then
Dim Filter As String = "[编号] = '" & e.NewValue & "'"
e.DataRow("入库合计") = DataTables("入库表").Compute("Sum(入库数量)", Filter)
End If
但是新增的数据并不直接进行计算，每次都需要重置列，重置列运行速度很慢，需要怎么优化
加好友 
发短信
Post By：2017/10/17 14:34:00 [只看该作者]
