专家坐堂-更新后的foxtable 不能查询带有* 的字符串怎么办？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String

With e.Form.Controls("textbox1")

If .Value IsNot Nothing Then

Filter = "chanpinid = \'" & .Value & "\'"

End If

End With

With e.Form.Controls("textbox2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "chanpinname like \'%" & .Value & "%\'"

End If

End With

With e.Form.Controls("textbox3")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "guige like \'%" & .Value & "%\'"

End If

End With

With e.Form.Controls("textbox4")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "danwei like \'%" & .Value & "%\'"

End If

End With

With e.Form.Controls("textbox5")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "chuhuodate >= #" & .Value & "#"

End If

End With

With e.Form.Controls("textbox6")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "chuhuodate <= #" & .Value & "#"

End If

End With

If Filter > "" Then

Tables("chuhuo").Filter = Filter

End If