Access Treeview 应用实例

《Access Treeview 应用实例》

使用说明：

本程序可在各种支持VBA语言的软件上直接使用，其中MS Access已成功测试具体步骤为：

1、在Access里创建一个tblTreeview的数据表如下图：

2、在Access里创建一个frmTreeview的窗体，在窗体里创建一个Treeview1的Treeview控件和一个

ImageList1的ImageList控件如下图：

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

4、最终效果如下图：

程序：

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("SELECT * FROM tblTreeview", dbOpenSnapshot, dbReadOnly) '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, "A1", "A3") '加载子节点

Else

strParent = rst!ChildID

Set MyNode = Me.Treeview1.Nodes.Add(, , strChild, rst!ChildID, "A1", "A3") '加载父节点End If

rst.MoveNext

Wend

rst.Close '关闭数据集

Me.Treeview1.HideSelection = False '离开焦点后有阴影

End Sub