以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]交叉统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78064)
--  作者：linswcfr
--  发布时间：2015/12/1 16:06:00
--  [求助]交叉统计问题

已生成的统计表，想再追加一列，可以这样写吗？

dim d1 as date = date.today()

dim dt as datatable = DataTables("明细表")

dim t as table = tables("统计表")

t.DataTable.DataCols.Add("今日收款",Gettype(Double),dt.Compute("sum(收款金额)","单据日期 = \'" & d1 & "\'"))

 

或者像这种情况代码要怎么写

 

[此贴子已经被作者于2015/12/1 16:06:50编辑过]
--  作者：大红袍
--  发布时间：2015/12/1 16:14:00
--  

生成统计表后，加代码

 

DataTables("统计表").DataCols.Add("今日收款",Gettype(Double))

For Each dr As DataRow In DataTables("统计表").DataRows

    dr("今日收款") = DataTables("明细表").Compute("sum(收款金额)","第一列 = \'" & dr("第一列") & "\'")

Next
--  作者：linswcfr
--  发布时间：2015/12/1 16:20:00
--  
谢谢老师