- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]用表达式计算每日结余 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108920)
-- 发布时间：2017/10/31 23:16:00
-- [求助]用表达式计算每日结余
此主题相关图片如下：表格.png
你好，请问我要得出“每日截止收入-每日支出合计”，表达式该怎么编写，谢谢
-- 发布时间：2017/10/31 23:34:00
--
参考：
http://www.foxtable.com/webhelp/scr/1572.htm
Select Case e.DataCol.Name
Case "收入","支出"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
dr("余额") = Val1 - Val2
Next
End Select
Case "收入","支出"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))
dr("余额") = Val1 - Val2
Next
End Select
[此贴子已经被作者于2017/10/31 23:41:10编辑过]
-- 发布时间：2017/11/1 8:55:00
--
参考流水账设计
http://www.foxtable.com/webhelp/scr/1572.htm