主题：[求助]模糊查询

此主题相关图片如下：查询.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

参考

Forms("技术部审核").Controls("Table1").Table.filter = filter

还是不会，请帮忙修改，谢谢！

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

客户栏处可以模糊查询了，但会弹出窗体，是否可以取消掉这个弹出框。

这句代码去掉

msgbox(filter)