因为没有上传你的库,给你一个函数,放在模块中,函数中用到了一个项目表,里面三个字段,调用时,只要改动SQL语句,加上where字句就可以实现选择性的添加到树里,就可以了,可以参考一下。
Public Function addTreeView(ObjTr As Object,rootText as string)
Dim ObjTree As Object
Dim objNode As Object
Dim rst As Object
Dim strParentID As String
Dim strSQL As String
Set ObjTree = ObjTr
ObjTree.Nodes.Clear
Set objNode = ObjTree.Nodes.Add(, , "K", rootText, 1, 2)
Set rst = CurrentDb.OpenRecordset("SELECT * FROM category_tabl ORDER BY categoryNumber", , dbReadOnly)
Do Until rst.EOF
Set objNode = ObjTree.Nodes.Add("K" & rst!categoryLevel, tvwChild, "K" & rst!categoryNumber, rst!CategoryName, 1, 2)
rst.MoveNext
Loop
ObjTree.Nodes(1).Expanded = True
rst.Close
Set rst = Nothing
Set ObjTree = Nothing
Set objNode = Nothing
End Function