主题：and 错误

筛选条件，为什么总是出现and操作符错误，代码如下

Dim bm As String =e.Form.Controls("ComboBox1").Value
Dim yg As String =e.Form.Controls("ComboBox2").Value
Dim rq As Date = e.Form.Controls("DateTimePicker1").Value

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Tables("行政主管日常工作1").filter >"" Then
            Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & " And "
        End If
        Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & "日期 = #" & .Value & "#"
    End If
End With

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Tables("行政主管日常工作1").filter > "" Then
            Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & " And "
        End If
        Tables("行政主管日常工作1").filter= Tables("行政主管日常工作1").filter & "归属部门 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Tables("行政主管日常工作1").filter > "" Then
            Tables("行政主管日常工作1").filter= Tables("行政主管日常工作1").filter & " And "
        End If
        Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & "做的好的人 = '" & .Value & "'"
    End If
End With

此主题相关图片如下：q%%kvz%5i3_158m8cdh%v2r.png

http://www.foxtable.com/help/index.html?n=1485.htm

第一个filter——messagebox.show

此主题相关图片如下：dj~})r1_xf9skt)677km8n.png

       If Tables("行政主管日常工作1").filter > "" Then
            Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & " And 做的好的人 = '" & .Value & "'"
       else

        Tables("行政主管日常工作1").filter = "做的好的人 = '" & .Value & "'"

end if

代码不要这样写，参考

 

Dim filter As String = ""

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If filter >"" Then
            filter  = filter & " And "
        End If
        filter = filter & "日期 = #" & .Value & "#"
    End If
End With

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If filter > "" Then
            filter = filter & " And "
        End If
        filter= filter & "归属部门 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If filter > "" Then
            filter= filter & " And "
        End If
        filter = filter & "做的好的人 = '" & .Value & "'"
    End If
End With

Tables("行政主管日常工作1").filter  = filter