主题：怎么根据编号选中与另外一个表相同的编号的行啊

在窗口表选择行，选择的行的同时根据（第一列）的编号，同时也选择表A与窗口表相同的编号！

感谢 

此主题相关图片如下：qq截图20140604143726.jpg

With Tables("表A")

    Dim r As Integer

    r = .Find(e.Table.current("第一列"), 0, 1, False, False, True)

    If r = e.Table.current("第二列") Then '如果找到符合条件的行   

        .Position = r  '则选择该行

    End If 

End With

这个是那个的问题啊 甜妹妹