主题：汇总

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))

b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于水平分组，按年分组

b.HGroups.AddDef("日期","月") '添加日期列用于水平分组，按月分组

b.VGroups.AddDef("产品","产品_{0}") '添加产品列用于垂直分组

b.Totals.AddDef("数量") '添加数量列用于统计
b.Subtotal = True '生成汇总模式
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表　

这里是可以按年月来汇总数量，可不可以按产品来汇总数量(所有产品合计数量)