- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- SubtotalGroup 分组汇总 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3278)
-- 发布时间：2009/6/25 9:48:00
-- SubtotalGroup 分组汇总
Dim g As New SubtotalGroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "币制"
g.TotalOn = "余额"
g.Caption = "{0} 小计"
With Tables("对帐表")
.SubtotalGroups.Clear() \'清除原有的分组
.SubtotalGroups.Add(g) \'加入刚刚定义的分组
.Subtotal \'生成汇总模式
End With
利用如上公式,如分组行各只有一行时,不能形成分组统计.如下图
此主题相关图片如下：片段_3.jpg
[此贴子已经被作者于2009-6-25 9:50:21编辑过]
-- 发布时间：2009/6/25 10:05:00
--
估计是有限制,至少二行以上吧,要请贺老师看看
-- 发布时间：2009/6/25 10:12:00
--
这应该是一个bug，
把总计去掉了，这个bug就会出现。
不信你试试分组列不止一行，只要没有总计，错误就会出现
-- 发布时间：2009/6/25 10:14:00
--
收到，有空我检查一下。
-- 发布时间：2009/6/25 10:15:00
--
楼上说错了，这个bug出现的条件是：
1、没有总计；
2、最后一个分组只有一条记录
-- 发布时间：2009/6/25 10:16:00
--
等于一行时，自己写个代码也行～
-- 发布时间：2009/6/25 10:16:00
--
以下是引用lxl在2009-6-25 10:15:00的发言：
楼上说错了，这个bug出现的条件是：
1、没有总计；
2、最后一个分组只有一条记录
呵呵，明白。
-- 发布时间：2009/6/26 8:28:00
--
晕，分组统计也有这个问题。