问下分组汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问下分组汇总

共有9935人关注过本帖树形打印复制链接主题：问下分组汇总

lsfdf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：202 积分：2470 威望：0 精华：0 注册：2011/12/14 20:48:00

问下分组汇总 发帖心情

Post By：2012/11/8 15:40:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:动态加载分组汇总.foxdb

根据目录树加载的内容，分组汇总不了，把代码单独放出来可以，放在NodeMouseDoubleClick里不行。

[此贴子已经被作者于2012-11-8 16:39:23编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/11/8 15:43:00 [只看该作者]

呵呵，做个简单的例子说话吧。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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()

lsfdf

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：202 积分：2470 威望：0 精华：0 注册：2011/12/14 20:48:00

Post By：2012/11/8 16:57:00 [只看该作者]

明白了

主题：问下分组汇总