以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 累计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69641) |
||||
-- 作者:gcc123 -- 发布时间:2015/6/8 16:10:00 -- 累计 如果数值列 是表达式列 累计代码还一样吗
|
||||
-- 作者:Bin -- 发布时间:2015/6/8 16:14:00 -- 表达式做不到累计 得用代码 |
||||
-- 作者:gcc123 -- 发布时间:2015/6/8 16:25:00 --
我的意思是 余额列 是表达式列 想让余额累计列 得出数据,代码该怎么写? |
||||
-- 作者:大红袍 -- 发布时间:2015/6/8 16:38:00 -- 你要的就是流水账的设计啊
http://www.foxtable.com/help/index.html?n=2136.htm
|
||||
-- 作者:gcc123 -- 发布时间:2015/6/8 16:58:00 --
当第一列 第二列 都是空白时 余额累计列 如何变成 空白? |
||||
-- 作者:大红袍 -- 发布时间:2015/6/8 17:03:00 -- Select Case e.DataCol.Name Case "第一列","第二列" For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey")) If dr.IsNull("第一列") OrElse dr.IsNull("第二列") Then dr("余额累计") = Nothing Else 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 End If Next End Select |