以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106379)
--  作者：yw8125
--  发布时间：2017/9/7 16:33:00
--  [求助]
此表是流水账目，请高手帮我设置余额和现金计算式。

余额=期初数+（现金收入+转账收入）-（现金支出+转账支出）
现金=期初数+现金收入-现金支出 

现存问题：余额可以用流水账的代码产生，现金也可同样产生，但是重置后数据出问题，关键首列有冲突无法解决。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:流水账目.foxdb
--  作者：有点甜
--  发布时间：2017/9/7 16:48:00
--  

参考代码

 

Select Case e.DataCol.Name
    Case "现金收入", "现金支出"
        For Each dr As DataRow In e.DataTable.Select("[日期] >= #" & e.DataRow("日期") & "#")
            Dim Val1 As Double = e.DataTable.Compute("Sum(现金收入)","日期 <= #" & dr("日期") & "# and [_Identify] <= " & dr("_Identify"))
            Dim Val2 As Double = e.DataTable.Compute("Sum(现金支出)","日期 <= #" & dr("日期") & "# and [_Identify] <= " & dr("_Identify"))
            dr("余额") = Val1 - Val2
        Next
End Select