Dim Filter As String = ""
If e.form.controls("精确搜索").checked Then
FIlter = "ERP成品型号 = '" & e.form.controls("TextBOx1").text & "'"
Else If e.form.controls("模糊搜索").checked Then
Filter = "ERP成品型号 like '%" & e.form.controls("TextBOx1").text & "%'"
End If
Tables("资料数据汇总").FIlter = Filter
老师搜索文本框里面文字里面文字在那代码添加,老师指导一下谢谢,