以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码问题  (http://www.foxtable.com/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