插入内联BOM树
我们通过两个例子来学习如何在窗口使用内联BOM树。
示例一
1、打开CaseStudy目录下的示例文件: BOM树.Table
2、新建一个窗口，插入一个InlineTree(内联树)控件。
4、将窗口的AfterLoad事件代码设置为：
Dim
trv As
WinForm.InlineTree
= e.Form.Controls("InlineTree1")
Dim
st As
New
InlineTreeSetting
st.ParentCol
= "上级"
st.ChildCol
= "物料"
st.ValueCol
= "用量"
st.GridTree
= True
Trv.BuildBomTree(Tables("物料清单A"),
st)
InlineTreeSetting类用于设置内联树，其全部属性可以参考： OpenInlineBomTree
示例二
你也可以针对SQLTable和SQLQuery生成内联BOM树：
1、打开CaseStudy目录下的示例文件: BOM树.Table
2、新建一个窗口，假定窗口名为"窗口1"
3、在窗口中插入一个Table控件，将其类型改为SQLTable，将其Select语句设置为： Select * From {物料清单A}
3、插入一个InlineTree(内联树)控件。
4、将窗口的AfterLoad事件代码设置为：
Dim
trv As
WinForm.InlineTree
= e.Form.Controls("InlineTree1")
Dim
st As
New
InlineTreeSetting
st.ParentCol
= "上级"
st.ChildCol
= "物料"
st.ValueCol
= "用量"
st.GridTree
= True
Trv.BuildBomTree(Tables("窗口1_Table1"),
st)