主题：[求助]关于定位行的问题

 

 

 
此主题相关图片如下：企业微信截图_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

 

 

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

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

    Case 1
        With Tables("组织结构")
            Dim dr As Integer
            Dim dr1 As Integer
            dr = .Findrow("表='" & e.Node.parentnode.Name & "' and 列 ='" & e.Node.Name & "'")