主题：请教一个问题？

在表A的CurrentChanged事件中加入

If Tables("表B").Position <> e.Table.Position
    Tables("表B").Position = e.Table.Position
End If

在表B的CurrentChanged事件中加入

If Tables("表A").Position <> e.Table.Position
    Tables("表A").Position = e.Table.Position
End If