主题：汇总模式，目录树不要展开，其代码命令是什么

帮助找了半天，没有找到

 

看了多遍，没有讲到如何收缩生成的目录树

窗口---目錄樹

如果是代码生成汇总模式，再次执行一下，我明白您的意思，记得贺老师说过，有这个方法，选定第几个分组！

程版真是知音，刚才又试了一下，还是没有搞定。请贺老师帮个忙

说明里面有个Level属性，我没找到方法如何用，好像在我的哪一个项目中有，我曾经问到过这个问题，我找找看在不在，也许找不到了！

好的，谢谢。汇总模式生成后，目录树都是展开的，数据量大，客户一下子就看晕了..........

我明白您的意思，想用代码模拟鼠标左键，点击汇总目录树左上角的1，将整个汇总目录树缩回，我没找到，等贺老师明天上来看看，以前有提起过，我的项目中没找到！

不展开目录树，只需一行代码：

 

 

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
t.StopRedraw()
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
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 = "{0} 合计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
t.Grid.Tree.Show(0)
t.ResumeRedraw()