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

输出filter看看内容是什么

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

第一个filter——messagebox.show

图片点击可在新窗口打开查看此主题相关图片如下：dj~})r1_xf9skt)677km8n.png

[此贴子已经被作者于2015/8/4 17:31:11编辑过]

       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

主题：and 错误