显示目录树

当表处于汇总模式的时候，可以在表的左边显示一个目录树，这样可以用类似于Windows资源管理器的方式来显示和管理表中数据：

要得到上图所示的效果，操作非常简单，只需在设置汇总模式的时候，只需将GroupAboveData和TreeVisible两个属性设置为True即可，例如：

Dim t As Table = Tables("订单")
t.GroupAboveData = True '分组行位于数据行之上
t.TreeVisible = True '显示目录树
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.GroupOn = "客户"
g.TotalOn = "数量,金额"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "产品"
g.TotalOn = "数量,金额"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "数量,金额"
t.SubtotalGroups.Add(g)
t.Subtotal()

提示：并非一定要将GroupAboveData设置为True，使得分组行位于数据行之上，只是这样设置之后，目录树的样式会更符合我们的习惯。