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


  共有2063人关注过本帖树形打印复制链接

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

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


加好友 发短信
等级:幼狐 帖子:82 积分:760 威望: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

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


加好友 发短信
等级:幼狐 帖子:82 积分:760 威望:0 精华:0 注册:2016/9/14 10:04:00
  发帖心情 Post By:2016/10/6 9:12:00 [显示全部帖子]

ok了!谢谢!

 回到顶部