求助 access treeview遍历

homer77

那位高人 能帮忙写个过程在 access中 遍历treeview啊, 希望能实现 当选择任意节点后 遍历该节点的所有下级

先谢了

homer77

自己顶一下

kevindeng

Function getNodeText(selNode As Node) As String
If selNode.Children = 0 Then
    getNodeText = ""
Else
    Dim xNode As Node
    Dim i As Integer
    Set xNode = selNode.Child
    For i = 1 To selNode.Children
        getNodeText = getNodeText & xNode.Text
        getNodeText = getNodeText & getNodeText(xNode)
        Set xNode = xNode.Next
    Next i
End If
End Function

homer77

太好了 非常感谢