此主题相关图片如下：企业微信截图_16821431264883.png

在TreeView控件的 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
            Dim dr1 As Integer
            dr = .Find( e.Node.Name ,.RowSel + 1, "列", False, True, True)
                .Position = dr \'则选择该行
            End If
        End With
End Select

”表“列的内容是唯一的所以不会重复但是名为"列"这列内容是重复的所以每次定位都是定位在第一个，选不到准确的行