- 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=125235)
-- 发布时间：2018/9/23 11:06:00
-- 级码筛选的问题
Dim bm As String = e.Node.FullName
Tables("车型编码").Filter = "级码 = \'" & bm & "\' Or 级码 Like \'" & bm & ".%\'"
这个级码筛选的代码，为什么只有第一层有效，点击第二层节点就没有效果了？
-- 发布时间：2018/9/23 13:19:00
--
1、你的表格【车型编码】的级码输入的是什么？
2、msgbox(bm)看看，看是否是你需要的。你是不是要改成比如
Dim bm As String = e.Node.FullName.replace("\\", ".")
Tables("车型编码").Filter = "级码 = \'" & bm & "\' Or 级码 Like \'" & bm & ".%\'"
-- 发布时间：2018/9/23 14:31:00
--
对的，对的，是这个replace("\\", ".") 的问题，
还有一个问题，这个筛选会把 孙级 也显示出来，如何才能只显示 本级和子级呢？
此主题相关图片如下：qq图片20180923142411.png
-- 发布时间：2018/9/23 18:03:00
--
Dim bm As String = e.Node.FullName.replace("\\", ".")
Tables("车型编码").Filter = "级码 = \'" & bm & "\' Or (级码 Like \'" & bm & ".%\' and len(级码) <= " & bm.length+3 & ")"
-- 发布时间：2018/9/23 22:38:00
--
完美解决了，哈哈，感谢感谢