以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问怎样用代码设置在汇总模式下不显示非汇总行,只显示汇总行?  (http://foxtable.net/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)