| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- @有点甜 老师，继续求助，谢谢！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114888) |
| -- 作者：skyanna -- 发布时间：2018/2/25 11:39:00 -- @有点甜 老师，继续求助，谢谢！ 有点甜 老师，感谢您今天回复了我关于目录显示统计数量的问题，我试了一下确实可以显示数量了，但每次点击“显示所有”出现了如下问题，我在tree的NodeMouseClick事件中看了一下代码和帮助文件代码是一样的，烦请再次帮忙解答一下，谢谢！（问题已解决，看回复，谢谢有点甜老师&blsu33大伽） [此贴子已经被作者于2018/2/26 9:08:37编辑过]
|
| -- 作者：skyanna -- 发布时间：2018/2/25 12:06:00 -- 如果哪位进来的大师知道答案麻烦也顺手指点一下，非常感谢！！ |
| -- 作者：skyanna -- 发布时间：2018/2/25 19:25:00 -- 顶起 等答案 |
| -- 作者：skyanna -- 发布时间：2018/2/25 22:51:00 -- 继续等待 |
| -- 作者：blsu33 -- 发布时间：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 -- 发布时间：2018/2/25 23:19:00 -- 我觉得这个 不错 你说呢 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=35151&page=6 |
| -- 作者：有点甜 -- 发布时间：2018/2/26 0:07:00 -- 改成
Dim Filter As String = "" |
| -- 作者：有点甜 -- 发布时间：2018/2/26 0:08:00 -- 第二个问题，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16386&skin=0 |
| -- 作者：skyanna -- 发布时间：2018/2/26 8:35:00 -- 谢谢有点甜老师，问题都已解决。 |
| -- 作者：skyanna -- 发布时间：2018/2/26 14:02:00 -- 实际操作了以后，发现用这个方法可以实现列筛选了，但是“取消筛选”按钮对于这种筛选出来的结果是没有作用的？ |