假定我们需要根据产品进行分组,统计每个产品的订单数,以及订购数量和订购金额。
按照常规,我们应该这样设置:
得到的统计结果为:
过程很简单,但是得到的结果不是很美观。
下图的统计结果可能更符合大多数人的习惯:
要实现上面的统计结果,代码并不复杂:
Dim
t As
Table = Tables("订单")
Dim g As
SubtotalGroup
t.SubtotalGroups.Clear()
g = New
SubtotalGroup
g.GroupOn = "产品"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim
r As
Row
For i As
Integer = 0
To t.Rows.Count(True)
- 1
r = t.Rows(i,True)
If r.IsGroup '如果是分组行
Dim f As
String = "产品 = '" & r("产品")
& "'"
Dim v As
String = " 订单数:" &
t.Compute("Count(日期)",f)
v = v & "
订购数量:" & t.Compute("Sum(数量)",f)
v = v & "
订购金额:" & t.Compute("Sum(金额)",f)
r("产品")
= "产品:" & r("产品") & v
End If
Next
上面的代码分成两部分,第一段设置汇总模式,需要注意的是,这里只是指定了分组列,没有指定统计列,同时分组标题简单设置为“{0}”,这样执行这段代码后,会得到下图所示的汇总模式:
然后第二段代码遍历所有行,如果是分组行,则计算出该分组的订单数、订购数量和订购金额,并填入到表中。