以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表计算不更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149683)
--  作者：nbsugu_z
--  发布时间：2020/5/9 11:20:00
--  跨表计算不更新

Select Case e.DataCol.Name
    Case "数量","单价","折扣"
        Dim pr As DataRow
        pr = DataTables("统计").Find("产品 = \'" & e.DataRow("产品") & "\'")
        If pr IsNot Nothing Then
            DataTables("统计").DataCols("产品").RaiseDataColChanged(pr)
        End If
End Select


以上代码在修改记录后以下统计表会自动更新，但是删除记录时就不会更新，如何办？？


以下统计表

If e.DataCol.Name = "产品" Then
    Dim Filter As String = "[产品] = \'" & e.NewValue & "\'"
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)", Filter)
    e.DataRow("金额") = DataTables("订单").Compute("Sum(金额)", Filter)
End If
--  作者：有点蓝
--  发布时间：2020/5/9 11:31:00
--  
DataRowDeleted事件

Dim pr As DataRow
pr = DataTables("统计表1").Find("产品 = \'" & e.DataRow("产品") & "\'")
If pr IsNot Nothing Then
    DataTables("统计表1").DataCols("产品").RaiseDataColChanged(pr)
End If
--  作者：nbsugu_z
--  发布时间：2020/5/9 12:09:00
--  
可以了，谢谢
[此贴子已经被作者于2020/5/9 12:28:24编辑过]
--  作者：nbsugu_z
--  发布时间：2020/5/9 12:43:00
--  
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.1.8
错误所在事件：表，订单，DataRowDeleted
详细错误信息：
调用的目标发生了异常。
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

就是删除最后一条记录时，出现上面提示。删除是可以删除的，数据也能更新

[此贴子已经被作者于2020/5/9 12:43:33编辑过]
--  作者：有点蓝
--  发布时间：2020/5/9 13:37:00
--  
我测试没有问题，贴出完整代码看看