以文本方式查看主题

-  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
--  累计

如果数值列 是表达式列  累计代码还一样吗

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150608160902.png
图片点击可在新窗口打开查看


--  作者:Bin
--  发布时间:2015/6/8 16:14:00
--  
表达式做不到累计
得用代码


--  作者:gcc123
--  发布时间:2015/6/8 16:25:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150608161916.png
图片点击可在新窗口打开查看

我的意思是  余额列 是表达式列  想让余额累计列 得出数据,代码该怎么写?


--  作者:大红袍
--  发布时间:2015/6/8 16:38:00
--  

 你要的就是流水账的设计啊

 

http://www.foxtable.com/help/index.html?n=2136.htm

 


--  作者:gcc123
--  发布时间:2015/6/8 16:58:00
--  

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

当第一列 第二列 都是空白时   余额累计列 如何变成  空白?


--  作者:大红袍
--  发布时间: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