Access-Treeview-应用实例.doc

(word完整版)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
第-4-页 / 共-4-页