以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问怎样用代码设置在汇总模式下不显示非汇总行，只显示汇总行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114414)
--  作者：jacksnfeng
--  发布时间：2018/2/5 18:45:00
--  请问怎样用代码设置在汇总模式下不显示非汇总行，只显示汇总行？
 请问怎样用代码设置在汇总模式下不显示非汇总行，只显示汇总行？
--  作者：有点蓝
--  发布时间：2018/2/5 20:17:00
--  
折叠非汇总行：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40891&skin=0
--  作者：jacksnfeng
--  发布时间：2018/2/7 14:43:00
--  
测试过不行啊
--  作者：有点甜
--  发布时间：2018/2/7 14:52:00
--  

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)