主题：如何用代码对筛选出来的数据进行分组统计

例如：

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("产品") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
b.Filter = Tables("订单").Filter '只对筛选后的数据统计
b.Build '生成统计表
Maintable = Tables("统计表1") '打开生成的统计表