[求助]多条件筛选，求助代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：http://www.foxtable.com/webhelp/topics/1058.htm

Dim Filter As String
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then

Dim txt As String = "'%" & .Value & "%'"

Filter = "(项目名称 Like " & txt & " Or 项目特征 Like " & txt & " Or 计量单位 Like " & txt & " )"

    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If

Dim txt As String = "'%" & .Value & "%'"

Filter = Filter & "(项目名称 Like " & txt & " Or 项目特征 Like " & txt & " Or 计量单位 Like " & txt & " )"

End If
End With

主题：[求助]多条件筛选，求助代码