主题：[求助]在精确搜索条件下中进行模糊搜索的问题

各位前辈，我现在正在做一个报账程序，基本上做好了，现在在数据筛选上遇到了点小问题。我现在想实现在精确搜索的前提下，再进行一次模糊搜索，进一步得到自己想要的数据。如图：
此主题相关图片如下：01.bmp
。类别选择“办公费”点击搜索正常。但是在精确定位文本框输入“加班”再一次进行定位之后，显示就不正常啦，筛选出来的数据不是 在“办公费”的条件下筛选出来的含有“加班”字眼的数据，而是全部含有“加班”字眼的数据。“查询”按钮的代码如下：

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "类别 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "维修日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "维修日期 <= #" & .Value & "#"
    End If
End With

With e.Form.Controls("DateTimePicker3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报销日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("DateTimePicker4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报销日期 <= #" & .Value & "#"
    End If
End With

With e.Form.Controls("TextBox1")
    Dim txt,fl As String
    txt= .Text
    txt = "'*" & txt & "*'"
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        fl="[项目部] Like " & txt & " Or [车牌号] Like " & txt  & " Or [报销人] Like " & txt & " Or [司机] Like " & txt & " Or [维修事项] Like " & txt
        Filter = Filter &  fl
    End I
End With

If Filter > "" Then
    Tables("费用表").Filter = Filter
End If

麻烦看一看哪里写错了，这个程序不麻烦，就是一个筛选功能，幸亏各位前辈了，在线等候消息。

我用的是外部数据表，我转换一下，马上上传。

补充该问题的实例，望各位前辈多多指导。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:精确查询下再进行一次模糊查询.zip

哇！高手啊，加了个括号就解决了，我一直也在想加个括号，就是不知道怎么加。高手就是不一样，非常感谢！五体投地！

惭愧啊，一直都是零敲碎打滴，一直在摸索啊，foxtable是个好东西，爱不释手，帮助文件看了很多遍了，也一直在论坛上溜达，不是实在解决不了的问题，一般不敢麻烦前辈。以后还得多多指教，等掌握熟练了，一定买个开发版本滴。