分组统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码结果如图一，我想要图二的结果

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

主题：分组统计