你在表A的currentchanged事件写代码
If Tables("A.B").current IsNot Nothing Then Tables("A.B").Select(0,0) End If
If Tables("A.B") Is Nothing Then Tables("B").Select(0,0) End If