Foxtable(狐表)用户栏目专家坐堂 → 表达式请教


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

主题:表达式请教

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


加好友 发短信
等级:狐神 帖子:5055 积分:13047 威望:0 精华:0 注册:2014/5/15 21:34:00
表达式请教  发帖心情 Post By:2014/8/22 9:32:00 [只看该作者]

大师:好!下面的代码错在哪里?为何显示缺少可操作数?


Dim filter1 As String
filter1 = "(zzfl = '" & ztzz & "'and kjnd = '" & ztnd & "'and qymc = '" & ztmc & "'and yf = '" & ztyf & "')"
For Each j As String In jh

filter1 = filter1 & "'or bbkm = '" & j & "'"
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/22 9:34:00 [只看该作者]

Dim filter1 As String
filter1 = "(zzfl = '" & ztzz & "' and kjnd = '" & ztnd & "' and qymc = '" & ztmc & "' and yf = '" & ztyf & "')"
For Each j As String In jh
    filter1 = filter1 & " or bbkm = '" & j & "'"
Next
[此贴子已经被作者于2014-8-22 9:34:13编辑过]

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


加好友 发短信
等级:狐神 帖子:5055 积分:13047 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/8/22 10:46:00 [只看该作者]

Dim filter1 As String
filter1 = "(zzfl = '" & ztzz & "' and kjnd = '" & ztnd & "' and qymc = '" & ztmc & "' and yf = '" & ztyf & "')"
For Each j As String In jh
    filter1 = filter1 & " or bbkm = '" & j & "'"
Next
甜大师:前面还是用and,循环中用or,如何写?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/22 10:47:00 [只看该作者]

你这样子写不行?有什么问题?


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


加好友 发短信
等级:狐神 帖子:5055 积分:13047 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/8/22 10:59:00 [只看该作者]

用到以后筛选的行不对
我的筛选条件要达到如下的字符串,上面的代码达不到

"zzfl = '" & ztzz & "' and kjnd = '" & ztnd & "' and qymc = '" & ztmc & "' and yf = '" & ztyf & "'" and (bbkm = '" & j1 & "' or bbkm = '" & j2 & "')"

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/22 11:01:00 [只看该作者]

Dim filter1 As String = ""
filter1 = "(zzfl = '" & ztzz & "' and kjnd = '" & ztnd & "' and qymc = '" & ztmc & "' and yf = '" & ztyf & "')"
Dim filter2 As String = ""
For Each j As String In jh
    filter2 = filter2 & " or bbkm = '" & j & "'"
Next
filter1 = filter1 & " and " & filter2.SubString(3)

 回到顶部