- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分组统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168880)
-- 发布时间：2021/5/25 19:51:00
-- 分组统计
以下代码结果如图一，我想要图二的结果
Dim b As New CrossTableBuilder("销售发货统计表",DataTables("销售发货"))
b.HGroups.AddDef("客户") \'添加客户列用于水平分组
b.VGroups.AddDef("年") \'添加产品列用于垂直分组
b.Totals.AddDef("金额") \'添加数量列用于统计
\'b.OrderByTotal = True \'统计列排在一起
b.HorizontalTotal = True \'水平合计
b.VerticalTotal = True \'垂直合计
b.Decimals = 0 \'保留的小数
b.Build \'生成统计表
Tables("销售发货统计_销售发货统计表").DataSource = b.BuildDataSource()
Tables("销售发货统计_销售发货统计表").AutoSizeCols() \'设置自动列宽
图一
此主题相关图片如下：snap1.jpg
图二
此主题相关图片如下：snap2.jpg
-- 发布时间：2021/5/25 20:23:00
--
b.VGroups.AddDef("年","金额_{0}")