以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69529)
--  作者：青鸟
--  发布时间：2015/6/6 17:21:00
--  [求助]
请教，下面这段代码，flt值为：费用分期 = 第三期，Filter = "\'" & flt & "\'"的结果是：Filter = \'费用分期 = 第三期\'，多了两个单引号（\'），
应该是两个双引号（”）：Filter =  “费用分期 = 第三期”，筛选条件无效，怎么处理？
Dim lkt As String
Dim flt As String
lkt = e.Link.Text
If lkt.Contains("营销费") And lkt.Contains("目前") Then \'如果shzt包含"审核中"
   flt = " 费用分期 = " & lkt.SubString(4,3)
   \'msgbox(flt)
   Tables("合同or费用台账").Filter = "\'" & flt & "\'"
   MainTable = Tables("合同or费用台账")
End If
--  作者：狐狸爸爸
--  发布时间：2015/6/6 20:30:00
--  
Dim lkt As String
Dim flt As String
lkt = e.Link.Text
If lkt.Contains("营销费") And lkt.Contains("目前") Then \'如果shzt包含"审核中"
   flt = " 费用分期 = ‘" & lkt.SubString(4,3) & “’”
   Tables("合同or费用台账").Filter = flt
   MainTable = Tables("合同or费用台账")
End If

参考：
http://www.foxtable.com/help/topics/1284.htm