主题：如何定位关联表的行

表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

end if