标题：代码问题

1楼

wqc360 发表于：2010/11/15 10:37:00

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

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

2楼

czy 发表于：2010/11/15 10:47:00

用Or替换Orelse。

[此贴子已经被作者于2010-11-15 10:50:19编辑过]

3楼

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

共3 条记录, 每页显示 10 条, 页签: [1]