以下代码结果如图一，我想要图二的结果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
加好友 
发短信
Post By：2021/5/25 19:51:00 [显示全部帖子]
