Me.Filter 使用包含大量值的字符串

【问题标题】：Me.Filter using String containing numerous valuesMe.Filter 使用包含大量值的字符串
【发布时间】：2014-06-10 14:22:43
【问题描述】：

Private Sub cbtn_canceled_Click()
Me.Filter = "([status_code] Like 'BQ' OR [status_code] Like 'RG')"
Me.FilterOn = True
End Sub

工作正常，但我需要返回大约 30 个可能性。我试过像这样喂一个 strFilter，

Dim strFilter As String
strFilter = "BQ,RQ,WS,WE"
Me.Filter = "([status_code] Like strFilter)"

我尝试了很多 strFilter 组合，但都没有运气。 OR 语句需要以某种方式进入其中。

想法？

【问题讨论】：

【解决方案1】：

Like 与通配符一起使用，例如 '*' 表示任何字符序列。所以

Me.Filter = "([status_code] Like 'BQ*' OR [status_code] Like 'RG*')"

会找到以 BQ 或 RG 开头的任何项目。

如果您正在寻找完全匹配，那么您可以使用 IN:

Me.Filter = "([status_code] IN('BQ','RG')"

所以

strFilter = "'BQ','RQ','WS','WE'"

你会使用

Me.Filter = "([status_code] IN(" &  strFilter & ")"

您需要连接 strFilter 使用与号 (&)，否则它会寻找单词“strFilter”。

【讨论】：