插入内联筛选树

我们通过两个例子来学习如何在窗口使用内联筛选树。

示例一

1、打开CaseStudy目录下的示例文件: 分级数据.Table

2、新建一个 窗口，插入一个InlineTree(内联树)控件。

3、将窗口的AfterLoad事件代码设置为：

Dim trv As WinForm.InlineTree = e.Form.Controls("InlineTree1")
Dim st As New InlineTreeSetting
st.ParentCol = "上级"
st.ChildCol = "员工"
st.ValueCol = "数量"
st.GridTree = True
st.Unique = False '如果是项目树,请删除此行
Trv.BuildFilterTree(Tables("销售A"), st)

InlineTreeSetting类用于设置内联树，其全部属性，可以参考： OpenInlineFilterTree

示例二

你也可以针对SQLTable和SQLQuery生成内联筛选树：

1、打开CaseStudy目录下的示例文件: 分级数据.Table

2、新建一个 窗口，假定窗口名为"窗口1"

3、在窗口中插入一个Table控件，将其类型改为SQLTable，将其Select语句设置为： Select * From {销售A}

4、插入一个InlineTree(内联树)控件。

5、将窗口的AfterLoad事件代码设置为：

Dim trv As WinForm.InlineTree = e.Form.Controls("InlineTree1")
Dim st As New InlineTreeSetting
st.ParentCol = "上级"
st.ChildCol = "员工"
st.ValueCol = "数量"
st.GridTree = True
st.Unique = False '如果是项目树,请删除此行
Trv.BuildFilterTree(Tables("窗口1_Table1"), st)