动态合成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
[此贴子已经被作者于2012-6-26 13:34:38编辑过]