请教，下面这段代码，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
加好友 
发短信
Post By：2015/6/6 17:21:00 [显示全部帖子]
