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

tables("xxx").Filter = "备注 like ‘*" & Str1 & "*' And 备注 Like '*" & Str2 & "*' And 备注 Like '*" & Str3 & "*'"

你可以判断的啊：

Dim Filter As string

If Str1 > " Then

    Filter = "备注 like ‘*" & Str1 & "*'"

End if

If Str2 > "" Then

    if Filter > "" Then

       Filter = Filter & " And "

    End If

    Filter = Filter & "备注 like ‘*" & Str2 & "*'"

End If

If Str3 > "" Then

    if Filter > "" Then

          Filter = Filter & " And "

     End If

     Filter = Filter & "备注 like ‘*" & Str3 & "*'"

End If

Tables("XXX").Filter = Filter

建议看看：

http://www.foxtable.com/help/topics/1058.htm

如果特别多，可以用数组：

Dim Vals(10) As String
Dim Filter As String =
For Each Val As String In vals
    If Val > "" Then
        If filter > "" Then
            filter = filter & " And "
        End If
        filter = filter & "备注 Like '*"  & val & "*'"
    End If
Next
Tables("xxx").Filter = filter