交叉统计之截止统计
前面已经讲到交叉统计的时候,在Totals集合中添加一个统计列的语法如下:
Totals.AddDef(Name)
Totals.AddDef(Name, Caption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate,Caption)
如果要进行截止统计,只需在上述语法后面,加上一个参数True:
Totals.AddDef(Name,
True)
Totals.AddDef(Name, Caption, True)
Totals.AddDef(Name, Aggregate, True)
Totals.AddDef(Name, Aggregate,Caption, True)
示例
按产品统计每月销售数量以及截止到该月的累计销售数量:
Dim
g As
New CrossTableBuilder("统计表1",
DataTables("订单"))
g.HGroups.AddDef("日期",
"月")
g.VGroups.AddDef("产品")
g.Totals.AddDef("数量",
"数量")
g.Totals.AddDef("数量",
"累计", True)
g.Build()
MainTable =
Tables("统计表1")
得到的统计结果为: