- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]模糊查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83383)
-- 发布时间：2016/4/7 18:08:00
-- [求助]模糊查询
此主题相关图片如下：查询.png
客户输入框内怎么实现模糊查询
Dim nms() As String = {"ComboBox1","ComboBox2","ComboBox3","ComboBox4","DateTimePicker1","DateTimePicker2"}
Dim sps() As String = {"\'","\'","\'","\'","#","#"}
Dim bjf() As String = {" = "," = "," = "," = "," >= "," <= "}
Dim fds() As String = {"产品种类","客户名称","客户管理人","服务类型","计费周期_起始日","计费周期_到期日"}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
If e.Form.controls(nms(i)).value IsNot Nothing Then
If filter > "" Then
filter = filter & " and "
End If
filter = filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
End If
Next
Tables("固网客户信息").filter = filter
-- 发布时间：2016/4/7 18:16:00
--
参考
Dim nms() As String = {"TextBox1","TextBox2","ComboBox1","ComboBox2","ComboBox3","ComboBox4","CheckBox1"}
Dim fgf() As String = {"\'%","%\'","\'%","%\'","\'","\'","\'","\'","\'","\'","\'","\'","",""}
Dim bjf() As String = {" Like "," Like "," = "," = "," = "," = "," = "}
Dim lms() As String = {"规格型号","mark","类别_大类","类别_小类","封装_类型","封装_引脚","同意采购"}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
Dim gx = Forms("技术部审核").Controls(nms(i)).value
If gx > "" Then
If filter > ""
filter = filter & " And "
End If
filter = filter & lms(i) & bjf(i) & fgf(i * 2) & gx & fgf(i * 2 + 1)
End If
Next
Forms("技术部审核").Controls("Table1").Table.filter = filter
-- 发布时间：2016/4/7 19:51:00
--
还是不会，请帮忙修改，谢谢！
-- 发布时间：2016/4/7 20:02:00
--
Dim nms() As String = {"ComboBox1","ComboBox2","ComboBox3","ComboBox4","DateTimePicker1","DateTimePicker2"}
Dim sps() As String = {"\'%","%\'","\'%","%\'", "\'%","%\'","\'%","%\'", "#", "#","#","#"}
Dim bjf() As String = {" Like "," Like "," Like "," Like "," >= "," <= "}
Dim fds() As String = {"产品种类","客户名称","客户管理人","服务类型","计费周期_起始日","计费周期_到期日"}
Dim filter As String = "1=1"
For i As Integer = 0 To nms.Length - 1
Dim gx As String = e.Form.controls(nms(i)).value
If gx > "" Then
filter = filter & " And " & fds(i) & bjf(i) & sps(i * 2) & gx & sps(i * 2 + 1)
End If
Next
msgbox(filter)
Tables("固网客户信息").filter = filter
-- 发布时间：2016/4/7 21:51:00
--
客户栏处可以模糊查询了，但会弹出窗体，是否可以取消掉这个弹出框。
此主题相关图片如下：窗体.png
-- 发布时间：2016/4/7 21:54:00
--
这句代码去掉
msgbox(filter)