以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单击目录树节点定位的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186907)
--  作者：xuxingbo
--  发布时间：2023/6/7 17:46:00
--  [求助]单击目录树节点定位的问题
在AfterSelectNode写如下代码：

Select Case e.Node.Level 
    Case 0
        With Tables("控制系统台账_系统主信息")
            Dim dr As Integer
            dr = .Find( e.Node.Name , 0, "区域", False, True, True)
            If dr > - 1 Then \'如果找到符合条件的行
                .Position = dr \'则选择该行
            End If 
        End With
    Case 1
        With Tables("控制系统台账_系统主信息")
            Dim dr As Integer
            dr = .Findrow("区域=\'" & e.Node.parentnode.Name & "\' and 机柜间 =\'" & e.Node.Name & "\'")
            If dr > - 1 Then \'如果找到符合条件的行
                .Position = dr \'则选择该行
            End If
        End With
    Case 2
        With Tables("控制系统台账_系统主信息")
            Dim dr As Integer
            dr = .Findrow("区域=\'" & e.Node.parentnode.Name & "\' and 机柜间 =\'" & e.Node.Name & "\' and 系统名称 =\'" & e.Node.Name & "\'")
            If dr > - 1 Then \'如果找到符合条件的行
                .Position = dr \'则选择该行
            End If
        End With
End Select



这个代码点击前两级时定位正常点击第三级节点时不定位，请问这个代码哪里有问题？
--  作者：有点蓝
--  发布时间：2023/6/8 8:25:00
--  
dr = .Findrow("区域=\'" & e.Node.parentnode.parentnode.Name & "\' and 机柜间 =\'" & e.Node.parentnode.Name & "\' and 系统名称 =\'" & e.Node.Name & "\'")