[求助]只显示筛选出来的分组行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题，
筛选出的数据，分组统计后，只显示分组行代码怎么写呢？
也就是隐藏非分组行

IsGroup

[此贴子已经被作者于2019/2/1 12:22:24编辑过]

公司的数据不方便截图，汇总代码和这个一样：

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) '生成汇总模式

表筛选出的行进行了分组统计（多列进行了排序），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编辑过]

主题：[求助]只显示筛选出来的 分组行

主题：[求助]只显示筛选出来的分组行