以下是引用有点甜在2018/6/17 15:33:00的发言:
示例一
假定我正在订单表操作,我们希望在订单表中选定一行时,客户表的光标能够自动定位到该客户,这样我一旦从订单表回到客户表,即可看到刚刚所选订单的客户资料。
为此我们在CurrentChanged事件中设置如下代码:
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("客户").Find("[客户ID] = '" & e.Table.Current("客户ID") & "'")
If dr IsNot Nothing Then
wz = Tables("客户").FindRow(dr)
If wz >= 0 Then
Tables("客户").Position = wz
End If
End If
老师,我说的是操作关联表“表A.表B”,光标不会自动定位到“表B”的对应行,您说的是操作表B,光标自动定位到表A的对应行,两者不一样的操作方法,而且我也没有找到关联表“表A.表B”的CurrentChanged事件