以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  统计列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177226)
--  作者：michl
--  发布时间：2022/5/13 12:37:00
--  统计列

图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看
如何按科目组合统计后，同品牌的应收项组在同一列？

Dim bd1 As New CrossTableBuilder("统计表1",DataTables("固定费用"))
Dim dt1 As fxDataSource
bd1.HGroups.AddDef("科目")
bd1.VGroups.AddDef("品牌","{0}_应收")
bd1.Totals.AddDef("应收金额")   
dt1 = bd1.BuildDataSource()
Dim bd2 As New CrossTableBuilder("统计表2",DataTables("水电费用"))
Dim dt2 As fxDataSource
bd2.HGroups.AddDef("科目")
bd2.VGroups.AddDef("品牌","{0}_应收")
bd2.Totals.AddDef("待收金额")
dt2 = bd2.BuildDataSource()
dt1.Combine("科目",dt2,"科目") 
--  作者：有点蓝
--  发布时间：2022/5/13 13:34:00
--  
dim sql as sring = "select 科目,品牌,应收金额 from {固定费用}  union all select 科目,品牌,待收金额 as 应收金额 from {水电费用}"
Dim bd1 As New CrossTableBuilder("统计表1",sql )
bd1.HGroups.AddDef("科目")
bd1.VGroups.AddDef("品牌","{0}_应收")
bd1.Totals.AddDef("应收金额")   
bd1.Build()