(word完整版)Access-Treeview-应用实例.doc

(word完整版)AccessTreeview应用实例
(word完整版)AccessTreeview应用实例
第--页/共-NUMPAGES4-页
(word完整版)AccessTreeview应用实例
《AccessTreeview应用实例》

使用说明：
本程序可在各种支持VBA语言的软件上直接使用，其中MSAccess已成功测试具体步骤为：
在Access里创建一个tblTreeview的数据表如下图：

在Access里创建一个frmTreeview的窗体,在窗体里创建一个Treeview1的Treeview控件和一个ImageList1的ImageList控件如下图：

然后把程序复制到frmTreeview窗体的加载事件当中如下图：

最终效果如下图：

程序：
PrivateSubForm_Load(）
OnErrorResumeNext
DimstrParentAsString，strChildAsString，MyNodeAsNode

Me。Treeview1。Nodes.Clear’清除Treeview的所有旧节点
Me.Treeview1。ImageList=Me。ImageList1。Object'把图标加载到每个节点前面

Setrst=CurrentDb。OpenRecordset(”SELECT＊FROMtblTreeview",dbOpenSnapshot,dbReadOnly）’Treeview节点数据来源
WhileNotrst.EOF
strChild=rst！ChildID
Ifrst！ChildID<〉rst!ParentIDThen
strParent=Mid(rst！ParentID，1，Len（rst！ParentID）-Len(rst！ChildID)-1）
SetMyNode=Me。Treeview1.Nodes.Add(strParent,tvwChild,rst！ParentID，rst！ChildID,"A1","A3”)’加载子节点
Else
strParent=rst!ChildID
SetMyNode=Me。Treeview1.Nodes.Add（，,strChild,rst!ChildID,"A1”，”A3")’加载父节点
EndIf
rst。MoveNext
Wend
rst.Close'关闭数据集

Me.Treeview1。HideSelection=False’离开焦点后有阴影
EndSub