- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 问下分组汇总 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25402)
-- 发布时间：2012/11/8 15:40:00
-- 问下分组汇总
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态加载分组汇总.foxdb |
根据目录树加载的内容，分组汇总不了，把代码单独放出来可以，放在NodeMouseDoubleClick里不行。
[此贴子已经被作者于2012-11-8 16:39:23编辑过]
-- 发布时间：2012/11/8 15:43:00
--
呵呵，做个简单的例子说话吧。
-- 发布时间：2012/11/8 16:50:00
--
你漏掉了一行代码：
Dim t As Table = Tables("订单")
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 = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
-- 发布时间：2012/11/8 16:57:00
--
明白了