运行下面的代码的时候，提示出错，是不是因为数据太多了，Exception has been thrown by the target of an invocation.
If e.DataCol.Name = "发货单号" Then
If e.NewValue Is Nothing Then
e.DataRow("付款金额") = Nothing
Else
Dim aa As DataRow
aa = DataTables("1流水").Find("[订单号] = '" & e.NewValue & "'")
If aa IsNot Nothing Then
e.DataRow("付款金额") = DataTables("1流水").Compute("sum(交易金额)","[订单号] = '" & e.NewValue & "'")
Else
Dim ab As DataRow
ab = DataTables("2流水").Find("[订单流水号] = '" & e.NewValue & "'")
If ab IsNot Nothing Then
e.DataRow("付款金额") = DataTables("2流水").Compute("sum(金额)","[订单流水号] = '" & e.NewValue & "'")
Else
Dim ac As DataRow
ac = DataTables("3流水").Find("[流水号] = '" & e.NewValue & "'")
If ac IsNot Nothing Then
e.DataRow("付款金额") = DataTables("3流水").Compute("sum(金额)","[流水号] = '" & e.NewValue & "'")
Else
Dim ad As DataRow
ad = DataTables("4流水").Find("[订单号] = '" & e.NewValue & "'")
If ad IsNot Nothing Then
e.DataRow("付款金额") = DataTables("4流水").Compute("sum(金额)","[订单号] = '" & e.NewValue & "'")
Else
e.DataRow("付款金额")= "-1000"
End If
End If
End If
End If
End If
End If
加好友 
发短信
Post By：2021/7/1 12:06:00 [显示全部帖子]
此主题相关图片如下：360截图20210701134156628.jpg