Dim Filter As String
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
Filter = "申报条件_对象要求 = '" & .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 & "申报条件_行业要求= '" & .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 & "申报条件_财务要求 = '" & .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 & "申报条件_立项要求 = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("申报项目数据库").Filter = Filter
End If
现在可以实现查找功能，但是不是模糊的，
加好友 
发短信
Post By：2017/10/19 10:38:00 [显示全部帖子]
