doubleclick事件
Dim idx As Integer = Tables("表A").FindRow("第一列 = '" & e.Row("第一列") & "'")
If idx >=0 Then Tables("表a").Position = idx Forms("窗口1").showElse msgbox("没找到")End If