Dim rr As Integer
rr = Tables("原始名单快捷方式表").Find("'" & e.Sender.Text & "'", 0, "快捷方式名称", False, False, True)
If rr > -1 Then
Tables("原始名单快捷方式表").Position = rr
Tables("展会信息").Filter = "'" & Tables("原始名单快捷方式表").Rows(rr)("快捷方式展会") & "'"
Tables("展会信息.原始名单").Filter = "'" & Tables("原始名单快捷方式表").Rows(rr)("快捷方式名单") & "'"
End If