@有点甜老师，继续求助，谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → @有点甜老师，继续求助，谢谢！

共有2723人关注过本帖树形打印复制链接主题：@有点甜老师，继续求助，谢谢！

skyanna

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

加好友

发短信

等级：婴狐帖子：40 积分：363 威望：0 精华：0 注册：2018/2/9 20:39:00

@有点甜老师，继续求助，谢谢！ 发帖心情

Post By：2018/2/25 11:39:00 [只看该作者]

有点甜老师，感谢您今天回复了我关于目录显示统计数量的问题，我试了一下确实可以显示数量了，但每次点击“显示所有”出现了如下问题，我在tree的NodeMouseClick事件中看了一下代码和帮助文件代码是一样的，烦请再次帮忙解答一下，谢谢！（问题已解决，看回复，谢谢有点甜老师&blsu33大伽）

第二个问题还是上个帖子里没有得到答案的，就是我想在狐表的每列都像EXCEL一样显示一个自动筛选按钮，要怎么做呢？

（问题已解决，看回复，谢谢有点甜老师&blsu33大伽）

[此贴子已经被作者于2018/2/26 9:08:37编辑过]

skyanna

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

加好友

发短信

等级：婴狐帖子：40 积分：363 威望：0 精华：0 注册：2018/2/9 20:39:00

Post By：2018/2/25 12:06:00 [只看该作者]

如果哪位进来的大师知道答案麻烦也顺手指点一下，非常感谢！！

skyanna

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

加好友

发短信

等级：婴狐帖子：40 积分：363 威望：0 精华：0 注册：2018/2/9 20:39:00

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

顶起等答案

skyanna

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

加好友

发短信

等级：婴狐帖子：40 积分：363 威望：0 精华：0 注册：2018/2/9 20:39:00

Post By：2018/2/25 22:51:00 [只看该作者]

继续等待

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

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

NodeMouseClick事件代码如下：

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter = "[模块类别] = '" & dr("模块类别") & "'"

Case 1

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "'"

Case 2

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'"

Case 3

Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'And [模块定义] = '" & dr("模块定义") & "'"

End Select

ELSE

Filter =""

End If

Tables("全球研发中心标准模块库").Filter = Filter

问题二去精华帖中搜索高级筛选总有一款适合你

[此贴子已经被作者于2018/2/25 23:09:38编辑过]

blsu33

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

加好友

发短信

等级：九尾狐帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00

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

我觉得这个不错你说呢

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=35151&page=6

有点甜

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

加好友

发短信

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

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

改成

Dim Filter As String = ""
If e.Node.name <> "显示所有行" Then
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
    Select Case e.Node.Level
        Case 0
            Filter = "[模块类别] = '" & dr("模块类别") & "'"
        Case 1
            Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "'"
        Case 2
            Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'"
        Case 3
            Filter = "[模块类别] = '" & dr("模块类别") & "' And [优选等级] = '" & dr("优选等级") & "' And [模块定位] = '" & dr("模块定位") & "'And [模块定义] = '" & dr("模块定义") & "'"
    End Select
End If
Tables("全球研发中心标准模块库").Filter = Filter