再已筛选的表格里，再做筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 再已筛选的表格里，再做筛选

共有2029人关注过本帖树形打印复制链接主题：再已筛选的表格里，再做筛选

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

再已筛选的表格里，再做筛选 发帖心情

Post By：2016/7/10 18:51:00 [只看该作者]

右边的明细表，按项目显示出所有的明细后，怎样限制只能在明细表显示出来的明细项目里筛选

此主题相关图片如下：捕获.jpg

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/11 4:36:00 [只看该作者]

加入你原来的条件是这样 "计划单号 in ('1', '2', '3')"

那么按钮就这样写 "计划单号 in ('1', '2', '3') and 材料名称 like '%" & e.Form.Controls("TextBox1").Text & "%'"

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

Post By：2016/7/12 8:01:00 [只看该作者]

Dim t1 As WinForm.Table = e.Form.Controls("Table1")

Dim ids As List(Of String) = t1.Table.DataTable.GetValues("计划单号",t1.Table.Filter)

Dim t2 As WinForm.Table = e.Form.Controls("Table2")

Dim filter As String = "计划单号 in ('" & String.Join("','",ids.ToArray()) & "') "

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")

If txt.Text > "" Then

filter = filter & " and 材料名称 like '%" & txt.Text & "%' or 规格型号 Like '*" & txt.text & "*' Or Convert([数量],'System.String') like '%" & txt.text & "%' "

t2.Table.Filter = filter

End If

--------------------------

将之前别人提供的代码改一下，可以用。但有几个问题，到现在还是不大明白

1、t1.Table.Filter

是什么意思？T1控件表格的筛选？

2、String.Join("','",ids.ToArray())

"','"，分隔符为什么还要加单引号？是因为表达式内部的字符串？

ids，为什么要用ToArray转换成数组？试过去掉，会出现无法转换的错误

此主题相关图片如下：捕获2.jpg

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/12 8:59:00 [只看该作者]

1.Filter指表格的筛选条件

2.单引号是sql语言语法的要求，字符串要用单引号引用起来

用ToArray是String.Join函数的参数要求是数组

这些都是编程语言的用法规定

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/12 9:20:00 [只看该作者]

代码应该这样写吧？

filter = filter & " and (材料名称 like '%" & txt.Text & "%' or 规格型号 Like '%" & txt.text & "%' Or Convert([数量],'System.String') like '%" & txt.text & "%') "

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

Post By：2016/7/12 12:00:00 [只看该作者]

@Hyphen

1、筛选条件，帮助里是具体的产品、时间、金额等，t1.Table.Filter指的是什么？有帮助链接嘛？

之前写代码时，没加这个会搜索所有订购单，帮助里找不到相关的资料。

2、SQL语言？有相关的介绍嘛，啃帮助，没找着

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/12 12:03:00 [只看该作者]

1、指的是你之前设置的筛选条件

2、http://www.foxtable.com/webhelp/scr/0687.htm

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

Post By：2016/7/12 16:55:00 [只看该作者]

1、之前设置的筛选条件，是指GetValues("计划单号",t1.Table.Filter)的“计划单号”?

2、filter = filter & " and (材料名称 like '%" & txt.Text & "%' or 规格型号 Like '%" & txt.text & "%' Or Convert([数量],'System.String') like '%" & txt.text & "%') "

括号，似乎对代码没影响，去掉，也可以运行

3、另外，如果想知道ids、filter的值，该怎么写代码？直接用messbox.show，会出现错误

此主题相关图片如下：31.jpg

[此贴子已经被作者于2016/7/12 16:56:30编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/12 17:01:00 [只看该作者]

1、参考

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

2、不能去掉

3、msgbox(String.Join("','",ids.ToArray()))

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

主题：再已筛选的表格里，再做筛选