共13 条记录, 每页显示 10 条, 页签: [1] [2]

标题：由多列模糊筛选改为单列筛选

1楼

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

这是多列筛选代码如何改成单列筛选代码

2楼

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

3楼

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个能不能实现请帮助谢谢

4楼

7032175 发表于：2011/10/8 13:52:00

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

5楼

don 发表于：2011/10/8 13:55:00

纸上不谈兵,简洁实例说话.

6楼

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个框了就不能运行了出现如下的提示！

7楼

7032175 发表于：2011/10/8 14:02:00

此主题相关图片如下：2.png

8楼

don 发表于：2011/10/8 14:15:00

纸上不谈兵

9楼

don 发表于：2011/10/8 14:18:00

以下是引用7032175在2011-10-8 13:52:00的发言：

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

所谓楼主:建立帖子的主人!

10楼

7032175 发表于：2011/10/8 14:37:00

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

共13 条记录, 每页显示 10 条, 页签: [1] [2]