表A,B,C,分别有金额列，如何将A+B+C的金额时时，汇总合计到表D的“银行帐户”金额中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用代码有几种方式计算？D表有：增加金额，减少金额，帐户余额。（多个银行帐户）

表A,B,C分有各个帐户的支出，收入的数据。

[此贴子已经被作者于2016/11/21 16:59:20编辑过]

Se lect e.DataCol.name

Case "帐户编号","本次付款","已付金额","订单付款","欠款支付","折后金额"

Dim dr As DataRow = DataTables("字典").find("[编号]= '"& e.datarow("帐户编号") & "'")

If dr IsNot Nothing Then

Dim n1 As Double = DataTables("采购入库").Compute("Sum(本次付款)","帐户编号 = '" & e.DataRow("帐户编号") & "'")

Dim n2 As Double = DataTables("采购入库").Compute("sum(订单付款)","帐户编号 = '" & e.DataRow("帐户编号") & "'")

Dim n3 As Double = DataTables("采购入库").Compute("sum(欠款支付)","帐户编号 = '" & e.DataRow("帐户编号") & "'")

dr("减少金额") = n1+n2+n3

dr("帐户余额") = dr("增加金额")-dr("减少金额")

dr.Save

'If dr("帐户余额") < 0 Then

'MessageBox.show("帐户余额小于支付金额'" & -dr("帐户余额") & "',请核查!","提示!")

'End If

End If

End S elect

这个是：表：采购入库，的datacolchanged代码。

我还有一个是：收入支出，表，也想用类似的代码来计算。但是这个：D表（字典，表），如何计算两个表以上的：增加金额，减少金额呢？

[此贴子已经被作者于2016/11/21 17:05:54编辑过]

比如