主题：统计

示例五，统计不同客户在1999年各季度下的订单数，以及总的订购数量

复制以下代码至命令窗口：　

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Filter = "[日期] >= #1/1/1999# And [日期]<= #12/31/1999#"
b.Groups.AddDef("客户")'添加客户列用于分组
'添加日期列用于分组，按季度分组，并用"季度"代替原名称
b.Groups.AddDef("日期",DateGroupEnum.Quarter,"季度") 
'添加客户列用于统计，其实对于Count类型的统计，可用任何列作为统计列。
b.Totals.AddDef("客户",AggregateEnum.Count,"订单数") 
b.Totals.AddDef("数量","订购数量") '添加数量列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

执行结果：