以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]只显示筛选出来的 分组行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130794)
--  作者：湛江智
--  发布时间：2019/2/1 12:21:00
--  [求助]只显示筛选出来的 分组行
 如题，
筛选出的数据，分组统计后，只显示分组行 代码怎么写呢？
也就是隐藏 非分组行

IsGroup


[此贴子已经被作者于2019/2/1 12:22:24编辑过]
--  作者：有点蓝
--  发布时间：2019/2/1 13:42:00
--  
截图看看，分组统计什么分组行？汇总统计吧
--  作者：湛江智
--  发布时间：2019/2/1 14:44:00
--  回复：（有点蓝）截图看看，分组统计什么分组行？汇总...
 公司的数据不方便截图，汇总代码和这个一样：

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 = "总计"
t.SubtotalGroups.Add(g)
t.Sort = "日期,客户" \'指定排序字段
t.Subtotal(True) \'生成汇总模式
--  作者：有点蓝
--  发布时间：2019/2/1 15:09:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114414&skin=0
--  作者：湛江智
--  发布时间：2019/2/14 11:13:00
--  回复：（有点蓝）参考：http://www.foxtable.com/bbs/...
表筛选出的行进行了分组统计（多列进行了排序），Syscmd.Table.ToggleSubtotalMode() 行的顺序变化了，不是想要的效果
下面代码退出汇总模式，行的顺序变化了，不是想要的效果

CurrentTable.ClearSubtotal()
CurrentTable.SubtotalGroups.Clear()


想实现：  当前行的顺序不变， 如果要隐藏当前 分组行，只显示 非分组行，下面代码怎么修改呢？
也就是 折叠汇总行

Dim t As Table = Tables("表A")
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()

 

Tables("表A").Grid.Tree.Show(0)


[此贴子已经被作者于2019/2/14 11:45:22编辑过]
--  作者：有点甜
--  发布时间：2019/2/14 11:56:00
--  

1、无法折叠汇总行的；

 

2、如果要隐藏行，参考

 

t.grid.Rows(3+t.HeaderRows).visible = False

 

3、不然，你就取消汇总模式