主题：[求助]筛选表达式错误！求助！

求高手帮忙看下这段代码有什么问题？按钮的click事件，测试时会出现错误。

With e.Form.controls("timing")
  If .checked = True
      If filter > "" Then
        filter = filter & " and"
        End If
        filter = filter & "e.style <> 即将到期 or 拖期十天以内 or 拖期十到二十天 or 严重拖期"
  Else If .checked = False
      If filter > "" Then
        filter = filter & " and"
        End If
        filter = filter & "e.style = 即将到期 or 拖期十天以内 or 拖期十到二十天 or 严重拖期"
  End If
End With