[求助]帮忙看看这个思路能不能实现？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]帮忙看看这个思路能不能实现？

共有3968人关注过本帖树形打印复制链接主题：[求助]帮忙看看这个思路能不能实现？

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/8 12:14:00 [只看该作者]

1.Tables("订单").ApplyFilter=False

这句替换成：

Tables("订单").Filter = ""

不行。

在原来代码 Tables("订单").ApplyFilter=False的位置写成：

Tables("订单").ApplyFilter=False

Tables("订单").Filter = ""

也不行。

搞不懂

大红袍

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

加好友

发短信

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

Post By：2015/10/8 14:16:00 [只看该作者]

呃，表名你原来就写错了

Tables("采购合同表").ApplyFilter=False

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/8 14:44:00 [只看该作者]

表名我早就改过来了，帖子中只是因为复制没有改过来

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/8 14:51:00 [只看该作者]

我再次试了一下，直接勾选“显示全部”，则表“采购合同表”中的空白记录被筛选掉了，且系统菜单中的“筛选”按钮处于选定状态。所以，上述代码肯定有哪里是不对的

大红袍

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

加好友

发短信

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

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

               If nd.Text="显示全部" Then
                    Tables("采购合同表").ApplyFilter=False
                    Return
                End If

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/8 14:56:00 [只看该作者]

ok了，谢谢

liuxianjie1980

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

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/8 15:07:00 [只看该作者]

Case 0 '注意下面的条件都要用括号括起来
                If nd.Text="显示全部" Then
                   for Each nd1 As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
                        nd1.Checked = False
                   Next

                  Tables("采购合同表").ApplyFilter=False
                    Return
               Else
                    Return
                End If
红色部分的代码意思是想实现：当选中“显示全部”时，若有被选中的子节点，则全部清除