算层数简单，是这个路径不好算，你拖动后，路径就变了，包括子节点的路径，因为你还没有加载，所以FullPath得到的是原来的路径，所以我一开始的问题就是问你们如何算出拖动后节点的路径

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

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

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编辑过]

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

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

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

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编辑过]

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

大佬，烦请您再帮我看下昨晚的问题！好像我做的不对！我第一次用递归，不懂原理！要求在文件里，谢谢！

早上好！这个参数是从你点击的节点开始搜索，后面的东南大学，是随便指定的一个节点，主要用来测试，后面用在程序里时，东南大学也会指定一个参数

是从选中节点开始搜索