谢谢。
如果使用代码设置汇总模式，需要在每个分组内对成交金额进行降序排列，该如何处理？
Dim t As Tables("窗口1_table1")
Dim a As Subtotalgroup
t.SubtotalGroups.Clear()
'定义店铺分组
a = New Subtotalgroup '定义一个新的分组
a.Aggregate = AggregateEnum.Sum '统计类型为求和
a.GroupOn = "店铺" '分组列为店铺
a.TotalOn = "数量,标准金额,成交金额" '统计数量和金额列
a.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(a) '加到分组集合中
'定义总计分组
a = New Subtotalgroup
a.Aggregate = AggregateEnum.Sum
a.GroupOn = "*" '注意总计分组用符号*表示.
a.TotalOn = "数量,标准金额,成交金额"
a.Caption = "总计"
t.SubtotalGroups.Add(a)
t.Subtotal() '生成汇总模式
问题的核心是对一个表同时进行汇总、排序、合并处理感觉到是相互干扰的，不会处理。
[此贴子已经被作者于2015/10/13 13:47:06编辑过]
加好友 
发短信
Post By：2015/10/13 11:28:00 [显示全部帖子]
