主题：关联表

方法一：你的窗口直接绑定关联表

http://www.foxtable.com/help/topics/2497.htm

方法二：做一下数据联动，CurrentChanged事件

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
      Tables("表A").Position = wz
End If