共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：SubtotalGroup 分组汇总
1楼
狐哥 发表于：2009/6/25 9:48:00Dim 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
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编辑过]
2楼
yangming 发表于：2009/6/25 10:05:00估计是有限制,至少二行以上吧,要请贺老师看看
3楼
lxl 发表于：2009/6/25 10:12:00这应该是一个bug，
把总计去掉了，这个bug就会出现。
不信你试试分组列不止一行，只要没有总计，错误就会出现
把总计去掉了，这个bug就会出现。
不信你试试分组列不止一行，只要没有总计，错误就会出现
4楼
狐狸爸爸 发表于：2009/6/25 10:14:00收到，有空我检查一下。
5楼
lxl 发表于：2009/6/25 10:15:00楼上说错了，这个bug出现的条件是：
1、没有总计；
2、最后一个分组只有一条记录
6楼
mr725 发表于：2009/6/25 10:16:00等于一行时，自己写个代码也行～
7楼
狐狸爸爸 发表于：2009/6/25 10:16:00以下是引用lxl在2009-6-25 10:15:00的发言：
楼上说错了，这个bug出现的条件是：
1、没有总计；
2、最后一个分组只有一条记录
呵呵，明白。
8楼
狐狸爸爸 发表于：2009/6/26 8:28:00晕，分组统计也有这个问题。
共8 条记录, 每页显示 10 条, 页签:
[1]