在Totals集合中添加一个统计列的语法如下:
Totals.AddDef(Name)
Totals.AddDef(Name, NewName)
Totals.AddDef(Name, NewName, NewCaption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate, NewName)
Totals.AddDef(Name, Aggregate, NewName, NewCaption)
参数说明
Name: 字符型,指定统计列。
NewName: 字符型,用于给统计列指定一个新的名称,这个名称在统计表中显示。
NewCaption: 字符型,用于给统计列设置标题。
Aggregate: AggregateEnum枚举型,用于指定统计类型,默认是求和。
AggregateEnum型枚举的可选值:
Average:平均值
Count: 记录数
Max: 最大值
Min: 最小值
Sum: 累积值
示例五,统计不同客户在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") '打开生成的统计表