主题：[求助]目录树节点定位行

 直接指定一下表名吧，测试代码，看弹出什么

msgbox(CurrentTable.name)
With Tables("表A")
    Dim r As Integer
    r = .FindRow("[编号] = '" & e.Node.Text & "'") ' 从第一行开始查找
    msgbox(r)
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With