以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除行有这个提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148098)

--  作者:yetle
--  发布时间:2020/3/31 10:16:00
--  删除行有这个提示
Exception has been thrown by the target of an invocation.


DataRowDeleted:

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编辑过]

--  作者:有点蓝
--  发布时间:2020/3/31 10:23:00
--  
放到DataRowDeleting事件