主题：[求助]请教大神如何在文本框批量输入文本查找数据

请教大神如何在文本框批量输入文本查找数据，一条一条查找我会，批量查找我就不会了

望各位走过路过的大神，进来看一看，不吝指教

用逗号或者空格分隔，参考代码

 

Dim fydh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim filter As String = "1=2"
For Each s As String In fydh.text.Split(",")
    filter &= " or 企业电子订单编号 like '%" & s & "%'"
Next
Tables("申报清单").Filter = filter

谢谢有点甜大神，可以了 ，祝中秋节快乐

再次请教老师，目前用逗号分隔，如果是用换行符号分隔，这个代码应该怎么写啊？

For Each s As String In fydh.text.replace(chr(10), "").Split(chr(13))

收到，谢谢大神