主题：阿可学艺[013]：请教：如何筛选出备注字段中包含多个字符串的记录？

动态合成Fileter字符串的另一种方法，这里可以是Str1～StrN,这个看起来不起眼的思路，可以为大家的模糊筛选、模糊查询组合条件字符串打开一个思路，基本上无需修改其他代码：

 

Dim Filter As String = """备注 Like '*" & Str1 & "*' And 备注 Like '*" & Str2 & "*' And 备注 Like '*" & Str3 & "*'""" '这里先写好Str1～StrN的全部条件字符串
If Str1 = Nothing OrElse Str2 = Nothing Then '这里用OrElse 从Str1判断至StrN－1
    Filter = Filter.Replace("备注 Like '**' And ",Nothing)
End If
If Str3 = Nothing Then ’这里必须是判断StrN
    Filter = Filter.Replace(" And 备注 Like '**'","")
    Filter = Filter.Replace("备注 Like '**'","") '加上这一句，就完全避免Str均为空的时候，Filter = "备注 Like '**'" 的问题

End If

 

多列筛选或模糊查询的时候需要在这个的基础上加以修改，多列的话，嵌套循环应该很方便地解决了，主要更方便任意组合筛选。

我顶！