and 错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

筛选条件，为什么总是出现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

主题：and 错误