关于截止统计

汇总模式默认是各个分组独自统计，可是有的时候，我们需要的并非是每个分组的统计结果，而是截止到每个分组时的统计结果。

SubtotalGroup有个upto属性，这是一个逻辑属性，设置为True，即可进行截止统计。

例如在对订单表进行统计的时候，我们希望得到截止到每个月的时候，总的订购数量，代码为：

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "日期"
g.TotalOn = "数量,金额"
g.upto = True '进行截止统计
t.SubtotalGroups.Add(g)
t.Subtotal()

得到的汇总模式如下：

如果你希望同时得到每月和截止到该月的累计，代码为：

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
'常规统计
g = New Subtotalgroup
g.GroupOn = "日期"
g.TotalOn = "数量,金额"
t.SubtotalGroups.Add(g)
'截止统计
g = New Subtotalgroup
g.GroupOn = "日期"
g.TotalOn = "数量,金额"
g.upto = True
t.SubtotalGroups.Add(g)
t.Subtotal()

得到的汇总模式如下：

提示：

1、对于按月的截止统计，默认标题是"{0}月 累计"，"月"随分组类型变化，例如按年分组，那么默认标题就是"{0}年 累计"，如果默认标题不符合要求，可以通过Caption属性设置。

2、日期的默认分组是按月，所以本节省略了设置SubtotalGroup的DateGroup属性的代码。