[求助]删除子表行，父表汇总子表数据更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]删除子表行，父表汇总子表数据更新

共有4267人关注过本帖树形打印复制链接主题：[求助]删除子表行，父表汇总子表数据更新

igewcw

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：98 积分：1206 威望：0 精华：0 注册：2015/2/4 18:24:00

[求助]删除子表行，父表汇总子表数据更新 发帖心情

Post By：2023/4/12 10:15:00 [只看该作者]

父表：DataColChanged

If e.DataCol.Name = "报价单号" Then

e.DataRow("BOM原材未税总成本") = DataTables("报价汇总表_Table2").Compute("Sum(材料单价)", "[报价单号] = '" & e.NewValue & "'")

End If

子表：DataColChanged

If e.DataCol.Name = "材料单价" Then

Dim pr As DataRow

pr = DataTables("报价汇总表_明细").Find("报价单号 = '" & e.DataRow("报价单号") & "'")

If pr IsNot Nothing Then

pr("原材未税总成本") = pr("原材未税总成本") + e.NewValue - e.OldValue

End If

删除子表行，父表汇总数据无法更新

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/12 10:20:00 [只看该作者]

要到删除事件处理

datarowdeleteing事件

e.DataRow("材料单价") = nothing

Dim pr As DataRow

pr = DataTables("父表").Find("报价单号 = '" & e.DataRow("报价单号") & "'")

If pr IsNot Nothing Then

DataTables("父表").DataCols("报价单号").RaiseDataColChanged(pr)

End If

igewcw

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：98 积分：1206 威望：0 精华：0 注册：2015/2/4 18:24:00

Post By：2023/4/12 10:24:00 [只看该作者]

非常感谢！

主题：[求助]删除子表行，父表汇总子表数据更新