关于父行与子行计算关系 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于父行与子行计算关系

共有2299人关注过本帖树形打印复制链接主题：关于父行与子行计算关系

ZJZK2018

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

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

关于父行与子行计算关系 发帖心情

Post By：2019/2/13 18:56:00 [只看该作者]

订单与订单明细已建立关联，我在订单明细表的DataColChanged写入下面代码，增加子表行时是对的，但有个问题，如果删除订单明细子表行时，如何自动即时减去订单父行“金额”的数据？

Case "收款情况_收款金额"

Dim pr As DataRow = dr.GetParentRow("订单") '获取当前行的父行

Dim sum As Double

For Each dr1 As DataRow In pr.GetChildRows("订单明细") 'drs '获取父行并历遍所有子行

sum = sum + dr1("金额")

pr("金额") = sum

[此贴子已经被作者于2019/2/13 18:57:02编辑过]

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/13 22:49:00 [只看该作者]

datarowdeleting事件，写代码，如

Dim dr As DataRow = e.dataRow

Dim pr As DataRow = dr.GetParentRow("订单") '获取当前行的父行

Dim sum As Double

For Each dr1 As DataRow In pr.GetChildRows("订单明细") 'drs '获取父行并历遍所有子行

sum = sum + dr1("金额")

pr("金额") = sum - dr("金额")

主题：关于父行与子行计算关系