表A：
If Forms("报价表信息核对").Opened Then
If Tables("报价表信息核对_table1").Current IsNot Nothing Then
With Tables("报价表信息核对_table2")
If Tables("报价表信息核对_table2").Cols.Contains("绑定编号") Then
Dim r As Integer
r = .FindRow("绑定编号 = '" & Tables("报价表信息核对_table1").Current("_identify") &"' " )
'msgbox(Tables("报价表信息核对_table1").Current("批次"))
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End If
End With
End If
End If
表B：
If Forms("报价表信息核对").Opened Then
If Tables("报价表信息核对_table2").Current IsNot Nothing Then
With Tables("报价表信息核对_table1")
Dim r As Integer
'msgbox( Tables("报价表信息核对_table2").Current("批次"))
r = .FindRow("_identify = '" & Tables("报价表信息核对_table2").Current("绑定编号") &"'" )
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End With
End If
End If
但是发现，在选择的信息不是匹配的信息的时候，也会跳转到之前匹配的那一行，不知道是哪里出的问题
加好友 
发短信
Post By：2023/4/27 10:20:00 [只看该作者]
