Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("产品") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
b.Build '生成统计表
Dim t As Table = Tables("统计表1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
MainTable = t '打开生成的统计表
加好友 
发短信
Post By：2013/4/6 12:22:00 [显示全部帖子]
