表B的CurrentChanged事件代码设置为:
if e.Table.Current is nothing then return
Dim dr As DataRow = e.Table.Current.DataRow
if e.table.name = "表B"
Dim wz As Integer = Tables("表A.表B").FindRow(dr)
If wz >=0 Then Tables("表A.表B").Position = wz
End If
else
Dim wz As Integer = Tables("表B").FindRow(dr)
If wz >=0 Then Tables("表B").Position = wz
end if