Foxtable(狐表)用户栏目专家坐堂 → 多条件查找


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

主题:多条件查找

美女呀,离线,留言给我吧!
qinlao666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:444 积分:3794 威望:0 精华:0 注册:2015/3/3 10:06:00
多条件查找  发帖心情 Post By:2015/3/6 16:13:00 [只看该作者]

各位老师:我想通个3个条件查询,附图

我做了个查找控件,代码是

Dim bjdh As WinForm.TextBox = e.Form.Controls("报价单号")
Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")
Dim htdh As WinForm.TextBox = e.Form.Controls("合同单号")
Tables("报价单").Filter ="报价单号 like '*" & bjdh.Text & "*'and 客户名称 like '*" & khmc.Text & "*'and 合同单号 like '*" & htdh.Text & "*'"

 

可是当我在报价单号的文本框里输入内容,其他2个文本框空着的时候,就只能查询到表中3列都有值的行,我想把那2列没值的行也都查找出来,请老师帮我解决下,谢谢!


图片点击可在新窗口打开查看此主题相关图片如下:122.jpg
图片点击可在新窗口打开查看

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


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

 已经跟你说了啊,参考啊 http://www.foxtable.com/help/topics/1058.htm

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/6 16:16:00 [只看该作者]


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2015/3/6 16:21:00 [只看该作者]

Dim flt As String
For Each s As String In "报价单号|客户名称|合同单号".Split("|")
    If e.Form.Controls(s).Text > "" Then
        flt + = " And " & s & " Like '%" & e.Form.Controls(s).Text & "%'"
    End If
Next
If flt > "" Then
    flt = flt.SubString(5)
End If
Tables("报价单").Filter = flt

应该是这样吧:

Dim flt As String
For Each s As String In "报价单号|客户名称|合同单号".Split("|")
    If e.Form.Controls(s).Text > "" Then
        flt + = " Or " & s & " Like '%" & e.Form.Controls(s).Text & "%'"
    End If
Next
If flt > "" Then
    flt = flt.SubString(4)
End If
Tables("报价单").Filter = flt
[此贴子已经被作者于2015/3/6 16:24:28编辑过]

 回到顶部
美女呀,离线,留言给我吧!
qinlao666
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:444 积分:3794 威望:0 精华:0 注册:2015/3/3 10:06:00
ok  发帖心情 Post By:2015/3/6 16:45:00 [只看该作者]

谢谢,问题已经解决

 回到顶部