主题：过滤筛选报错 老师！

此主题相关图片如下：12.jpg

Dim Filter As String
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "mc ='" & .Value & "'"
    End If
End With

With e.Form.Controls("textbox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "no='" & .Value & "'"
    End If
End With

With e.Form.Controls("textbox4")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "zdr='" & .Value & "'"
    End If
End With

With e.Form.Controls("textbox2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "gg='" & .Value & "'"
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "rq >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "rq<= #" & .Value & "#"
    End If
End With

Tables("客户订单下拉_Table1").filter =Filter And " [JA] = 'N'"

1、Dim Filter As String = "[JA] = 'N'"

2、Tables("客户订单下拉_Table1").filter = Filter