统计表
If e.DataCol.Name = "送检编号" Then
Dim Filter As String = "[送检编号] = '" & e.NewValue & "'"
e.DataRow("领用数量合计_Kg") = val(DataTables("焊丝领用明细表").Compute("Sum(领用数量_Kg)", Filter))
e.DataRow("退回数量合计_Kg") = val(DataTables("焊丝领用明细表").Compute("Sum(退回数量_Kg)", Filter))
e.DataRow("领用数量合计_根") = val(DataTables("焊丝领用明细表").Compute("Sum(领用数量_根)", Filter))
e.DataRow("退回数量合计_根") = val(DataTables("焊丝领用明细表").Compute("Sum(退回数量_根)", Filter))
End If
订单表
Select Case e.DataCol.Name
Case "领用数量_根","领用数量_Kg","退回数量_根","退回数量_Kg"
Dim pr As DataRow
pr = DataTables("焊丝库存台账").Find("送检编号 = '" & e.DataRow("送检编号") & "'")
If pr IsNot Nothing Then
DataTables("焊丝库存台账").DataCols("送检编号").RaiseDataColChanged(pr)
End If
End Select
加好友 
发短信
Post By：2023/3/15 9:36:00 [显示全部帖子]
