分组统计之截止统计
前面已经讲到分组统计的时候,在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)
如果要进行截止统计,只需在上述语法后面,加上一个参数True:
Totals.AddDef(Name,
True)
Totals.AddDef(Name, NewName, True)
Totals.AddDef(Name, NewName, NewCaption, True)
Totals.AddDef(Name, Aggregate, True)
Totals.AddDef(Name, Aggregate, NewName, True)
Totals.AddDef(Name, Aggregate, NewName, NewCaption, True)
示例
统计每月销售数量以及截止到该月的累计销售数量:
Dim
g As
New GroupTableBuilder("统计表1",
DataTables("订单"))
g.Groups.AddDef("日期",
"月")
g.Totals.AddDef("数量","小计")
g.Totals.AddDef("数量",
"累计", True)
g.Build()
MainTable =
Tables("统计表1")
得到的统计结果为: