以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  由多列模糊筛选改为单列筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13286)
--  作者：7032175
--  发布时间：2011/10/7 16:07:00
--  由多列模糊筛选改为单列筛选
 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

 

 

这是多列筛选代码  如何改成单列筛选代码
--  作者：czy
--  发布时间：2011/10/7 16:40:00
--  
Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    Tables("窗口1_Table1").Filter = "客户ID Like \'*" & txt & "*\'"
End If
--  作者：7032175
--  发布时间：2011/10/8 13:41:00
--  

Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    Tables("窗口1_Table1").Filter = "客户ID Like \'*" & txt & "*\'"
End If

 

这段代码是对的 但是 引用的  TextBox1  只能到 TextBox10  在往后变成TextBox01或更多就不行了  这是为什么  能不能有改进 我想在往后增N个 能不能实现 请帮助 谢谢
--  作者：7032175
--  发布时间：2011/10/8 13:52:00
--  

那位楼主在 请帮助我一下  我很急  谢谢您们了
--  作者：don
--  发布时间：2011/10/8 13:55:00
--  
纸上不谈兵,简洁实例说话.
--  作者：7032175
--  发布时间：2011/10/8 14:01:00
--  

Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    Tables("窗口1_Table1").Filter = "客户ID Like \'*" & txt & "*\'"
End If

 

 

TextBox1  这个是文字输入的框   但是这段代码只能在1到10个框之间运行      超出10个框了就不能运行了出现如下的提示！
--  作者：7032175
--  发布时间：2011/10/8 14:02:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
--  作者：don
--  发布时间：2011/10/8 14:15:00
--  
纸上不谈兵
--  作者：don
--  发布时间：2011/10/8 14:18:00
--  
以下是引用7032175在2011-10-8 13:52:00的发言：

那位楼主在 请帮助我一下  我很急  谢谢您们了


所谓楼主:建立帖子的主人!
--  作者：7032175
--  发布时间：2011/10/8 14:37:00
--  

请狐狸爸爸还有明白的朋友 帮我解决一下