添加总计分组

通常还需要添加一个总计分组,添加总计分组和添加普通分组的方法一样,只是总计分组的分组列用"*"表示:

例如要通过汇总模式,统计每个产品不同客户的采购的数量和金额、每个产品总的销售数量和金额,以及所有产品总的销量和金额,代码为:

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 =
"数量,金额"
t.SubtotalGroups.Add(g)

'定义总计分组

g = New
SubtotalGroup
g.GroupOn =
"*"
g.TotalOn =
"数量,金额"
t.SubtotalGroups.Add(g)
t.Subtotal()
'生成汇总模式

得到的统计结果为:

注意:

1、总计分组用"*"表示。
2、总计分组必须是最后一个添加的。
3、总计分组的默认标题为"总计",普通分组的默认标题为"{0} 小计",可以通过Caption属性修改。


本页地址:http://www.foxtable.com/webhelp/topics/3290.htm