主题：如何快速定位到目录树选择节点所对应的table行？

 1、你的currentChanged事件是否写有代码。

 2、定位就是会慢的，2000行，我测试下面的代码也不会很慢

With Tables("表A")
    Dim r As Integer
    r = .FindRow("第一列 = '12345'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With