请教TreeView遍历选中节点及其子节点 - VFP论坛

第 21 楼

得分:0

回复 20楼 csyx

哈哈！是的，这个比喻好形象

第 22 楼

得分:0

以下是引用csyx在2022-7-13 09:13:34的发言：

如果只是遍历子节点，几行代码就够了
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)

大佬！再请教：用你的递归遍历子节点，现在当我用这个查找子节点时，如果找到结果，则立即退出递归！请问：当满足条件时如何退出递归？谢谢！

Lparameters oNode,tcSelectKey
Local oCurNode,ChildKey,isIndetical
isIdentical = .F.
*ChildKey = oNode.Key
a = Alltrim(oNode.Key)
Messagebox(a+tcSelectKey,0,"")
If a == Alltrim(tcSelectKey)
    isIndetical = .T.
    Messagebox("相同了，找到啦！",0,"")
    Return                            &&这里应该退出了，并返回.T.，但是还是会继续下去，直至最后
Else
    isIndetical = .F.
Endif
If oNode.Children > 0
    oCurNode = oNode.Child
    Do While !Isnull(oCurNode)
        This.findTreeNode(oCurNode,tcSelectKey)
        oCurNode = oCurNode.Next
    Enddo
Endif
Return isIndetical

[此贴子已经被作者于2022-7-14 18:42编辑过]

第 23 楼

得分:0

这样呢？

程序代码：

Lparameters oNode,tcSelectKey

Local oCurNode,ChildKey

a = Alltrim(oNode.Key)
Messagebox(a+tcSelectKey,0,"")

If a == Alltrim(tcSelectKey)
    Messagebox("相同了，找到啦！",0,"")
    Return .F.                            &&这里应该退出了，并返回.T.，但是还是会继续下去，直至最后
Endif

If oNode.Children > 0
    oCurNode = oNode.Child
    Do While !Isnull(oCurNode) and This.findTreeNode(oCurNode,tcSelectKey)
        oCurNode = oCurNode.Next     
    Enddo
Endif

第 24 楼

得分:0

回复 23楼 csyx

好像不是立即退出的，还要再递归一次才退出，而且退出后都返回T

[此贴子已经被作者于2022-7-14 20:18编辑过]

第 25 楼

得分:0

messagebox(a+tcSelectKey) 显示的是不是你需要的退出条件？

[此贴子已经被作者于2022-7-14 20:27编辑过]

第 26 楼

得分:0

回复 25楼 csyx

那个是我看的输出结果，我条件是 a = tcSelectKey 现在解决了，我在外面加个变量，初始为.F.,然后找到后变为.T.，这样判断这个为.T.时就退出递归了，但是返回值都是.F.啊？

第 27 楼

得分:0

程序代码：

Lparameters oNode,tcSelectKey
Local oCurNode,ChildKey,isIndetical
isIdentical = .F.
*ChildKey = oNode.Key
a = Alltrim(oNode.Key)
Messagebox(a+tcSelectKey,0,"")
If a == Alltrim(tcSelectKey)
    isIndetical = .T.    
    Messagebox("相同了，找到啦！",0,"")
    isCheck = .T.  &&加了这个
    Return isIndetical                        
Endif
If oNode.Children > 0
    oCurNode = oNode.Child
    Do While !Isnull(oCurNode) 
        If isCheck = .t.  &&判断
           Exit 
        Else 
        This.findTreeNode(oCurNode,tcSelectKey)            
        oCurNode = oCurNode.Next
        EndIf         
    Enddo
Endif
Return isIndetical

[此贴子已经被作者于2022-7-14 20:42编辑过]

第 28 楼

得分:0

代码看上去怪怪的，逻辑不怎么对

第 29 楼

得分:0

应该是调用 findTreeNode 的地方或者传入的 oNode 不对

第 30 楼

得分:0

好的，我在研究研究，谢谢你！