我这个代码有问题吗，老大？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老大，提问尽量不要这样没头没尾，提示什么错你也得说出来

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

[此贴子已经被作者于2014-2-21 20:28:07编辑过]

主题：我这个代码有问题吗，老大？