主题：[求助]现在有AB两个窗口表，A表希望选择行的时候，如果B表有对应的行就选择，反之也一样

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