ACCESS TreeView控件的使用

一.在窗体的设计模式下,选择ActiveX控件,然后找到 Microsoft TreeView Control 6.0(SP6) ,确定

二.数据表的设计.重点在处理NodeID与ParentNodeID这两个字段的关系上.

三.TreeView数据的加载.下图是TreeView控件的所有事件.可以看到它本身是没有专用的加载事件的.需要在窗体的Load事件中或者其他事件处理TreeView的数据加载问题.

加载数据:

Tree.Nodes.Clear '先清空,不然Key 会重复

Dim Rec As DAO.Recordset

Dim Node As Node

Dim isql As String

isql = "SELECT 'S'+MID(CSTR(100000+NodeID),2,5) AS NID ,'S'+MID(CSTR(100000+ParentNodeID),2,5) AS PID,NodeName FROM BomProList where 启用状态=-1"

Set Rec = CurrentDb.OpenRecordset(isql)

Rec.MoveLast

n = Rec.RecordCount

Rec.MoveFirst

For i = 0 To n - 1

If Rec!PID = "S00000" Then

If n = 1 Then

Set Node1 = Tree.Nodes.Add(, , "S" & Rec!NID, "无此BOM数据")

Else

Set Node1 = Tree.Nodes.Add(, , "S" & Rec!NID, Rec!NodeName)

End If

Else

Set Node1 = Tree.Nodes.Add("S" & Rec!PID, tvwChild, "S" & Rec!NID, Rec!NodeName)

End If

Rec.MoveNext

Next

'释放资源

Rec.Close

Set Rec = Nothing

四.TreeView节点的折叠与展开

Function TreeExpanded(Tree, Bool) '设置节点的展开与缩放

Dim i As Long

For i = 1 To Tree.Nodes.Count

Tree.Nodes(i).Expanded = Bool 'True展开所有节点,False 收起所有节点

Next i

If Bool Then

Forms!BOM管理!Command80.Caption = "折叠" '设置按钮的状态

Tree.Nodes(1).Selected = True '展开后tree会被滚动到最底下的节点,需要后动设置,让滚动条回到tree的第一个节点

Else

Forms!BOM管理!Command80.Caption = "展开"

End If

End Function