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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我这个代码有问题吗，老大？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46372)

--  作者：htlk25
--  发布时间：2014/2/21 20:11:00
--  我这个代码有问题吗，老大？

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:19:00
--
老大，提问尽量不要这样没头没尾，提示什么错你也得说出来

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编辑过]

--  作者：htlk25
--  发布时间：2014/2/21 20:25:00
--
问题解决了，真的是大师啊，按你这样写的话，FILTER = 后面的公式就没了“ 和”了，为什么也能行呢？

--  作者：有点甜
--  发布时间：2014/2/21 20:28:00
--
回复3楼，你可以这样理解：从表里拿出来的字符串就是自动带有双引号的。