以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么样实现目录树中只显示符合条件的节点及其子节点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86871)
--  作者：无我是天机
--  发布时间：2016/6/28 9:57:00
--  [求助]怎么样实现目录树中只显示符合条件的节点及其子节点

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160628095111.jpg
图片点击可在新窗口打开查看
如图所示，怎么实现只显示红色线框中的节点，即a节点及其子节点？
--  作者：无我是天机
--  发布时间：2016/6/28 9:58:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:递归函数.rar

实例
--  作者：大红袍
--  发布时间：2016/6/28 10:22:00
--  
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("表A")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
Dim filter As String = "标题 = \'a\'"
For Each dr As DataRow In dt.Select(filter)
    nd = tr.Nodes.Add(dr("键"),dr("标题"))
    Functions.Execute("AddChildren",nd,dt)
Next
tr.ResumeRedraw()
--  作者：无我是天机
--  发布时间：2016/6/28 10:25:00
--  
完美！谢谢红袍老师！