以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  我想在流水账录入申请单或更改支出后同步更新申请单的已预支金额并加载此申请单  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146925)

--  作者：lfz123 --  发布时间：2020/3/6 9:04:00 --  我想在流水账录入申请单或更改支出后同步更新申请单的已预支金额并加载此申请单 我想在流水账录入申请单或更改支出后同步更新申请单的已预支金额并加载此申请单,写了如下代码: 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

--  作者：有点蓝 --  发布时间：2020/3/6 9:32:00 --   dr.Load() 改为 dr.Save()