请高人指点vb6下遍历treeview的问题

[guoguoququ]

Call TraverseNode(Treeview.NodeS, tkey) '调用递归
Public Sub TraverseNode(nodelist As NodeS, tkey As Double) '
Dim nodex As Node
For Each nodex In nodelist
If nodex.Key = "P" & Trim(tkey) Then '相同则展开
nodex.Selected = True
Exit Sub
End If
If nodex.children = 0 Then '判断子节点则调用
Else
Call TraverseNode(？？？, tkey)'？？？处不知道该如何传值
End If
Next
End Sub
难道从一开始我就传错值了吗？请高人指点，十万火急

[of123]

Treeview 控件的 Nodes 是包含各层父和子节点的。不要用分层的思路去处理。

[of123]

遍历根节点下各个子节点的例子（看最后一段）：

Dim nodx As Node

Set TreeView1.ImageList = ImageList1

'Add root Node
Set nodx = TreeView1.Nodes.Add(, , "Root", "Root Node", "Closed")

'Expand root node so we can see what's under it
nodx.ExpandedImage = "Open"
nodx.Expanded = True

'Create a child node under the root node
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child1", "Child node 1", "Closed")

'Expand this node so we can see what's under it
nodx.ExpandedImage = "Open"
nodx.Expanded = True

'Create several more children
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child2", "Child node 2", "Leaf")
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child3", "Child node 3", "Leaf")
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child4", "Child node 4", "Leaf")
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child5", "Child node 5", "Leaf")

'Create two child nodes under the first child node of root
Set nodx = TreeView1.Nodes.Add("Child1", tvwChild, "Child1A", "Child node 1 A", "Leaf")
Set nodx = TreeView1.Nodes.Add("Child1", tvwChild, "Child1B", "Child node 1 B", "Leaf")

'Loop though each child of the root node
Dim i As Long

'Set nodx to the first child node of root.
Set nodx = TreeView1.Nodes("Root").Child

'Loop though each child nod assigning it to nodx
For i = 1 To TreeView1.Nodes("Root").Children
     MsgBox nodx.Text
     Set nodx = nodx.Next
Next 

[guoguoququ]

OK,我明白了，根本不需要递归 If nodex.children = 0 Then '判断子节点则调用 Else Call TraverseNode(？？？, tkey)'？？？处不知道该如何传值 End If 这些代码删除掉就OK了