主题：BOM目录树问题，狐爸请看

  打算是在导航里做一个目录树，双击产品名后，BOM表筛选出当前产品节点下的所有行，代码如下：执行结果是只有最后一行的。另外还想问一下，对于递归函数的使用，可不可以不用目录树形式而用表的形式搜索出来呢？

forms("BOM展开目录窗口").open()
Dim Value() As String
Value = e.Node.FullPath.Split("\")
  Dim tr As WinForm.TreeView = Forms("BOM展开目录窗口").Controls("TreeView1")
    Dim nd As WinForm.TreeNode
    Dim dt As DataTable = DataTables("BOM")

If  e.Node.Level = 1 Then
      tr.StopRedraw()
    tr.Nodes.Clear
    For Each dr As DataRow In dt.datarows
        If dr.IsNull("图号") And dr("零部件图号") = "" & value(1) & "" Then
            nd = tr.Nodes.Add(dr("零部件图号"),dr("零部件图号"))
            Functions.Execute("AddChildren1",nd,dt)
            Dim cp As WinForm.TreeView = Forms("BOM展开目录窗口").Controls("TreeView1")
            For Each jd As WinForm.TreeNode In cp.AllNodes
          Tables("BOM").filter = "[零部件图号] = '" & jd.text & "'"
 Forms("BOM展开目录窗口").Controls("Label1").text = "" & jd.text & ""       ’这步是测试节点用的，显示结果是只有最后一个节点
            Next
             End If
    Next

哪里不明白呢？

我在导航里做个目录树，双击产品名后BOM表搜索出产品的组成，加入到表里面

我的问题是：

     我想搜索出某一特定产品的所有组成，但是代码执行后，表中只有目录树的最后一个节点的行。另外，递归算法可不可以用表来实现呢？如果可以的话我就不用建立目录树了

狐爸请看例子，想实现单击产品名，自动在表中显示出此产品相关的行！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:上传.rar

比如双击或者单击“落砂机  L253T” 节点，BOM表会筛选出零部件图号为此产品下的所有节点的行

这样只能筛选出单个的行，我想筛选出根节点包括的所有的子节点的行，怎么做呢？

非常感谢！

狐爸：还想问一个问题，递归函数的例子中的表，怎样能实现在表中筛选出和a有关的行呢？即在表中筛选出a、d、e、f、g、h、i、j这几行。

不好意思哦，就是递归的例子里面的那个表，你看能实现我说的那样吗？直接筛选出a相关的行

狐爸请看，做了个例子，表A在窗口中选择a后，点击“查询”，想在表A中筛选符合条件的行，即实现表B的效果

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:递归表上传.rar