我想在流水账录入申请单或更改支出后同步更新申请单的已预支金额并加载此申请单,写了如下代码:
If e.DataCol.name = "支出" OrElse e.DataCol.name = "申请单号" Then '更新申请单的已预支金额
e.DataRow.Save
If e.DataRow.IsNull("申请单号") = False Then
Dim dr As DataRow = DataTables("申请单").SQLfind("申请单号 = '" & e.DataRow("申请单号") & "'")
If dr IsNot Nothing Then
dr("已预支金额") = e.DataTable.SQLCompute("sum(支出)","申请单号 = '" & e.DataRow("申请单号") & "'") '并未更新申请单的已预支金额
dr.Load() '这段代码就出现下面的截图报错'
End If
Else
Dim dr As DataRow = DataTables("申请单").SQLfind("申请单号 = '" & e.oldvalue & "'") '并未更新申请单的已预支金额
If dr IsNot Nothing Then
dr("已预支金额") = e.DataTable.SQLCompute("sum(支出)","申请单号 = '" & e.oldvalue & "'")
dr.Load()
End If
End If
End If
此主题相关图片如下：加载错误提示.png
此主题相关图片如下：加载错误提示2.png
加好友 
发短信
Post By：2020/3/6 9:04:00 [只看该作者]
