以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  汇总模式与排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9290)
--  作者：wcs
--  发布时间：2011/3/25 23:37:00
--  汇总模式与排序

这两个存在一些矛盾

 

在某一个表中

 

如果我先按年、月、日排序

 

再来按客户名称、总包合同编号汇总

 

则在每一类汇总的明细内容中，明细记录的排序就失效了，不知如何解决！
--  作者：狐狸爸爸
--  发布时间：2011/3/25 23:57:00
--  
用代码,Subtotal有一个参数，设置为True，保持现有排序不变，例如：
 
Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
\'定义客户分组
g = New SubtotalGroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "客户" \'分组列为客户
g.TotalOn = "数量,金额" \'统计数量和金额列
g.Caption = "{0} 小计" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
\'定义产品分组
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
\'定义总计分组
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示。
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal(True) \'生成汇总模式
[此贴子已经被作者于2011-3-25 23:58:41编辑过]
--  作者：wcs
--  发布时间：2011/3/26 22:29:00
--  

好了

 

先sort，再汇总!