以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8591)

--  作者:wqc360
--  发布时间:2010/11/15 10:37:00
--  代码问题

请问我的如下筛选代码问题出在哪里,谢谢

Tables("邮件").Filter = "[发信人] = \'" & Value(2) & "\' And [收信人] = \'" & Vars("用户名") & "\' Orelse [收信人] = \'" & Value(2) & "\' And [发信人] = \'" & Vars("用户名") & "\' "


--  作者:czy
--  发布时间:2010/11/15 10:47:00
--  
用Or替换Orelse
[此贴子已经被作者于2010-11-15 10:50:19编辑过]

--  作者:wqc360
--  发布时间:2010/11/15 10:57:00
--  

谢谢C版,我用以下也搞定,不知哪个好

Dim Filter As String
        Filter = "发信人 = \'" & Value(2) & "\' And 收信人 = \'" & Vars("用户名") & "\'  "
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & " 收信人 = \'" & Value(2) & "\' And 发信人 = \'" & Vars("用户名") & "\' "
        If Filter > "" Then
            Tables("邮件").Filter = Filter
        End If