交叉统计之截止统计

前面已经讲到交叉统计的时候，在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")

得到的统计结果为：