主题：汇总模式，目录树不要展开怎么做啊

  我加上了这行代码：t.Grid.Tree.Show(0)，貌似没有效果，如图
代码如下：
Dim t As Table = Tables("数据浏览窗口_BillInformation")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = True
    t.SpillNode = True
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "子合同编号"
    g.TotalOn = "开piao额"
    g.Caption = "{0} 累计"
    g.upto = True
    t.SubtotalGroups.Add(g)
    t.Grid.Tree.Show(0) '收回目录树
    t.Subtotal()

 原来是这样啊，呵呵谢谢您的帮助