- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教大神如何在文本框批量输入文本查找数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125237)
-- 发布时间：2018/9/23 12:30:00
-- [求助]请教大神如何在文本框批量输入文本查找数据
请教大神如何在文本框批量输入文本查找数据，一条一条查找我会，批量查找我就不会了
Dim fydh As WinForm.TextBox = e.Form.Controls("TextBox1")
Tables("申报清单").Filter
此主题相关图片如下：1.png
= "企业电子订单编号 Like\'*"& fydh.text & "*\'Or 企业电子运单编号 Like\'*"& fydh.text & "*\' Or 清单编号 Like\'*"& fydh.text & "*\'"
此主题相关图片如下：1.png= "企业电子订单编号 Like\'*"& fydh.text & "*\'Or 企业电子运单编号 Like\'*"& fydh.text & "*\' Or 清单编号 Like\'*"& fydh.text & "*\'"
-- 发布时间：2018/9/23 12:31:00
--
Dim fydh As WinForm.TextBox = e.Form.Controls("TextBox1")
Tables("申报清单").Filter = "企业电子订单编号 Like\'*"& fydh.text & "*\'Or 企业电子运单编号 Like\'*"& fydh.text & "*\' Or 清单编号 Like\'*"& fydh.text & "*\'"
-- 发布时间：2018/9/23 12:33:00
--
望各位走过路过的大神，进来看一看，不吝指教
-- 发布时间：2018/9/23 13:16:00
--
用逗号或者空格分隔，参考代码
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
-- 发布时间：2018/9/23 15:01:00
--
谢谢有点甜大神，可以了 ，祝中秋节快乐
-- 发布时间：2018/9/24 0:39:00
--
再次请教老师，目前用逗号分隔，如果是用换行符号分隔，这个代码应该怎么写啊？
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
Dim filter As String = "1=2"
For Each s As String In fydh.text.Split(",")
filter &= " or 企业电子订单编号 like \'%" & s & "%\'"
Next
Tables("申报清单").Filter = filter
-- 发布时间：2018/9/25 9:48:00
--
For Each s As String In fydh.text.replace(chr(10), "").Split(chr(13))
-- 发布时间：2018/9/26 9:27:00
--
收到，谢谢大神