如果只是遍历子节点,几行代码就够了
1. 新建一个表单方法: 遍历子节点,代码如下
程序代码:
Lparameters oNode
? oNode.FullPath
Local oo
If oNode.Children > 0
oo = oNode.Child
Do while !IsNull(oo)
This.遍历子节点(oo)
oo = oo.Next
EndDo
EndIf
2. 遍历子节点按钮.Click 调用它:
Thisform.遍历子节点(Thisform.treeView1.SelectedItem)