《Access Treeview 应用实例》
使用说明：
本程序可在各种支持VBA语言的软件上直接使用，其中MS Access已成功测试具体步骤为： 1、 在Access里创建一个tblTreeview的数据表如下图：
2、 在Access里创建一个frmTreeview的窗体，在窗体里创建一个Treeview1的Treeview控件和一个
ImageList1的ImageList控件如下图：
第-1-页 / 共-3-页 3、 然后把程序复制到frmTreeview窗体的加载事件当中如下图：
4、 最终效果如下图：
第-2-页 / 共-3-页 程序：
Private Sub Form_Load() On Error Resume Next
Dim strParent As String, strChild As String, MyNode As Node
Me.Treeview1.Nodes.Clear '清除Treeview的所有旧节点
Me.Treeview1.ImageList =Me.ImageList1.Object '把图标加载到每个节点前面
Set rst = CurrentDb.OpenRecordset(\'Treeview节点数据来源
While Not rst.EOF
strChild = rst!ChildID
If rst!ChildID <> rst!ParentID Then
strParent = Mid(rst!ParentID, 1, Len(rst!ParentID) - Len(rst!ChildID) - 1)
Set MyNode = Me.Treeview1.Nodes.Add(strParent, tvwChild, rst!ParentID, rst!ChildID, \\'加载子节点 Else
strParent = rst!ChildID
Set MyNode = Me.Treeview1.Nodes.Add(, , strChild, rst!ChildID, \'加载父节点 End If rst.MoveNext Wend
rst.Close '关闭数据集
Me.Treeview1.HideSelection = False '离开焦点后有阴影 End Sub
第-3-页 / 共-3-页
