由多列模糊筛选改为单列筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 由多列模糊筛选改为单列筛选

共有16119人关注过本帖树形打印复制链接主题：由多列模糊筛选改为单列筛选

7032175

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

由多列模糊筛选改为单列筛选 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

Post By：2011/10/8 13:52:00 [只看该作者]

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

don

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12993 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2011/10/8 13:55:00 [只看该作者]

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

7032175

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2757 威望：0 精华：0 注册：2011/9/1 14:26:00

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