以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口筛选时，提示缺少操作数。求教!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91266)

--  作者：nbsfy3378 --  发布时间：2016/10/5 23:34:00 --  [求助]窗口筛选时，提示缺少操作数。求教! Dim fil As String Dim f1 As String f1 = e.Form.Controls("条件一").Value If f1>"" Then     fil="单位名称 Like " & "\'%" & fil & "%\'" End If f1 = e.Form.Controls("条件二").Value If f1>"" Then     fil=fil &  "and 单位名称 Like " & "\'%" & fil & "%\'" End If f1 = e.Form.Controls("跟进人").Value If f1>"" Then     fil=fil &  "and 跟进人 Like " & "\'%" & fil & "%\'" End If f1 = e.Form.Controls("分级").Value If f1>"" Then     fil=fil &  "and 分级 Like " & "\'%" & fil & "%\'" End If f1 = e.Form.Controls("状态").Value If f1>"" Then     fil=fil &  "and 状态 Like " & "\'%" & fil & "%\'" End If f1 = e.Form.Controls("行业").Value If f1>"" Then     fil=fil &  "and 行业 Like " & "\'%" & fil & "%\'" End If Tables("客户").filter=fil

--  作者：新福星 --  发布时间：2016/10/6 7:14:00 --   两个需要改进的地方。 1 把这个语句改成 fil="单位名称 Like  \'%" & fil & "%\'"  楼上类似语句均改;  2    fil=fil &  "and 跟进人 Like " & "\'%" & fil & "%\'"这个语句的 And 前面加一个空格，fil=fil &  "  and 跟进人 Like "\'%" & fil & "%\'" 然后试一下 [此贴子已经被作者于2016/10/6 7:14:44编辑过]

--  作者：nbsfy3378 --  发布时间：2016/10/6 9:12:00 --   ok了！谢谢！