[求助]在第一个筛选结果内再次筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在第一个筛选结果内再次筛选

共有1752人关注过本帖树形打印复制链接主题：[求助]在第一个筛选结果内再次筛选

dokings

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

加好友

发短信

等级：幼狐帖子：72 积分：709 威望：0 精华：0 注册：2017/6/12 16:08:00

[求助]在第一个筛选结果内再次筛选 发帖心情

Post By：2018/2/7 19:45:00 [只看该作者]

我有两个文本框对表格进行筛选，，，如何让第2个筛选框在第一个筛选结果内再次筛选。。。

现在是各选各的，，，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.rar

[此贴子已经被作者于2018/2/7 20:00:24编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/7 19:55:00 [只看该作者]

参考这里的设计

http://www.foxtable.com/webhelp/scr/1058.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/7 20:01:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox4").Text
Dim tbl As Table = Tables("details")
Dim filter As String = "1=1"
If txt >= "" Then
txt = "'%" & txt & "%'"
Filter &= " and (Standard Like " & txt & " Or Products Like " & txt & ")"
End If
txt = e.Form.Controls("TextBox5").Text

If txt >= "" Then
txt = "'%" & txt & "%'"
Filter &= " and Size Like " & txt
End If
tbl.filter = filter

dokings

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

加好友

发短信

等级：幼狐帖子：72 积分：709 威望：0 精华：0 注册：2017/6/12 16:08:00

Post By：2018/2/7 20:02:00 [只看该作者]

我看过这个例子，他是放在按钮的CLICK事件，我是想放到TEXTCHANGED事件里，，，通用吗？

dokings

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

加好友

发短信

等级：幼狐帖子：72 积分：709 威望：0 精华：0 注册：2017/6/12 16:08:00

Post By：2018/2/7 20:07:00 [只看该作者]

试过这样是可行的。谢谢版主。

开始也试过这样写，但是少了一句 txt = e.Form.Controls("TextBox5").Text，导致不成功

dokings

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

加好友

发短信

等级：幼狐帖子：72 积分：709 威望：0 精华：0 注册：2017/6/12 16:08:00

Post By：2018/2/7 20:35:00 [只看该作者]

Like 运算符中出错: 字符串模式“%1*1%”无效。

我发现一个问题，，，如果搜索1*1这样的有星号的字符会报错，，，，有办法解决吗？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/7 20:41:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox4").Text
Dim tbl As Table = Tables("details")
Dim filter As String = "1=1"
If txt >= "" Then
txt = "'%" & txt.replace("*", "[*]") & "%'"
Filter &= " and (Standard Like " & txt & " Or Products Like " & txt & ")"
End If
txt = e.Form.Controls("TextBox5").Text

If txt >= "" Then
txt = "'%" & txt.replace("*", "[*]") & "%'"
Filter &= " and Size Like " & txt
End If
tbl.filter = filter

下一主题 >> << 上一主题

主题：[求助]在第一个筛选结果内再次筛选