主题：[求助]模糊查询

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