Exception has been thrown by the target of an invocation.
Dim dr As DataRow
dr = DataTables("原材料加工主表").Find("[加工单号] = '" & e.DataRow("加工单号") & "'")
If dr IsNot Nothing Then
dr("金额") = DataTables("原材料加工明细").Compute("Sum(合计金额)","加工单号='" & e.DataRow("加工单号") & "'")
End If
[此贴子已经被作者于2020/3/31 10:17:39编辑过]