以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表A,B,C,分别有金额列，如何将A+B+C的金额时时，汇总合计到表D的“银行帐户”金额中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93139)
--  作者：yancheng
--  发布时间：2016/11/21 16:56:00
--  表A,B,C,分别有金额列，如何将A+B+C的金额时时，汇总合计到表D的“银行帐户”金额中？
用代码有几种方式计算？D表有：增加金额，减少金额，帐户余额。（多个银行帐户）
表A,B,C分有各个帐户的支出，收入的数据。
[此贴子已经被作者于2016/11/21 16:59:20编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 17:05:00
--  
参考：http://www.foxtable.com/webhelp/scr/1453.htm
--  作者：yancheng
--  发布时间：2016/11/21 17:05:00
--  
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编辑过]
--  作者：有点蓝
--  发布时间：2016/11/21 17:27:00
--  
比如
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("帐户编号") & "\'")
 Dim m1 As Double =  DataTables("采购入库2").Compute("Sum(本次付款)","帐户编号 = \'" & e.DataRow("帐户编号") & "\'")
            dr("减少金额") = n1+n2+n3 + m1
            dr("帐户余额") = dr("增加金额")-dr("减少金额")
            dr.Save
            \'If dr("帐户余额") < 0 Then
             \'MessageBox.show("帐户余额小于支付金额\'" & -dr("帐户余额") & "\',请核查!","提示!")
            \'End If  
        End If
End S elect