ShowGridTree(内联)

Table的ShowGirdTree方法用于生成折叠模式。

折叠模式非常强大，如果你对折叠模式还不熟悉，请务必先回到使用指南学习相关知识。

关于折叠内联表，可以参考: 折叠内联表

对于内联表，生成折叠模式的语法是：

ShowGridTree(Setting)

Setting： InlineTreeSetting类型，用于设置折叠模式属性。

InlineTreeSetting的相关属性有:

ParentCol:     字符型，指定父列名称
ChildCol:      字符型，指定子列名称
TreeCol:       字符型，指定折叠树显示列名称，如果不设置，默认显示在子列
SortCol:       字符型，指定排序列，参考：指定排序列  保存行顺序
SortDesc       逻辑型，是否降序排序
AggregateCols: 字符数组，指定要汇总的列，参考：汇总数据  汇总值和原始值
UseStyle:      逻辑型，是否使用样式区分分组行，参考：使用样式区分行
ExpandTo:      整数型，指定折叠树默认展开级别，默认为0,也就是都不展开，如果设置为-1，则全部展开

示例一

打开CaseStudy目录下的实例文件: 折叠模式.Table

选择表"物料清单A"，在命令窗口执行下面的代码：

Dim st As New InlineTreeSetting
st.ParentCol = "上级"
st.ChildCol = "物料"
st.ExpandTo = 0
Tables("物料清单A").ShowGridTree(st)

得到的折叠模式如下图：

如果希望折叠树显示在上级列，并默认展开第一级目录，代码：

Dim st As New InlineTreeSetting
st.ParentCol = "上级"
st.ChildCol = "物料"
st.TreeCol = "上级"
st.ExpandTo = 1
Tables("物料清单A").ShowGridTree(st)

得到的折叠模式如下：

如果希望在折叠模式下，同一级的节点和行，能按照用量值降序排序，代码为：

Dim st As New InlineTreeSetting
st.ParentCol = "上级"
st.ChildCol = "物料"
st.SortCol = "用量"
st.SortDesc = True
st.ExpandTo = 0
Tables("物料清单A").ShowGridTree(st)

得到的折叠模式如下图：

示例二

打开CaseStudy目录下的实例文件: 折叠模式.Table

选择表"部门"，在命令窗口执行下面的代码：

Dim st As New InlineTreeSetting
st.ParentCol = "parentid"
st.ChildCol = "id"
st.SortCol = "sysgrdtreesort"
st.ExpandTo = 0
st.AggregateCols = {"人数"}
st.UseStyle = True
st.TreeCol = "部门"
Tables("部门").ShowGridTree(st)

得到的折叠模式如下：

参考： ShowGridTree(层级)   ShowGridTree(普通)