主题：[求助]模糊查询

参考

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)