Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口筛选时,提示缺少操作数。求教!


  共有1788人关注过本帖平板打印复制链接

主题:[求助]窗口筛选时,提示缺少操作数。求教!

帅哥哟,离线,有人找我吗?
nbsfy3378
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:82 积分:754 威望:0 精华:0 注册:2016/9/14 10:04:00
[求助]窗口筛选时,提示缺少操作数。求教!  发帖心情 Post By: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

 回到顶部