以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  and 错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72687)
--  作者：woshiabc
--  发布时间：2015/8/4 16:52:00
--  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
按此在新窗口浏览图片
--  作者：有点蓝
--  发布时间：2015/8/4 17:10:00
--  
输出filter看看内容是什么
http://www.foxtable.com/help/index.html?n=1485.htm
--  作者：woshiabc
--  发布时间：2015/8/4 17:24:00
--  

第一个filter——messagebox.show


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

[此贴子已经被作者于2015/8/4 17:31:11编辑过]
--  作者：狐表开发
--  发布时间：2015/8/4 17:31:00
--  

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

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

end if
--  作者：大红袍
--  发布时间：2015/8/4 18:49:00
--  

代码不要这样写，参考

 

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