各位老师:在窗口中想查找包涵COMBOBOX1内容的值,但用LIKE替换=号无效!
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "检验岗 = '" & .Value & "'" ‘模糊查找包涵内容的值,不知道怎么写代码?
End If
End With
If Filter > "" Then
tbl.Filter = Filter
tbp.Filter = Filter
Tables("制造质量管理").Filter = Filter
End If
请老师指教!