情况如下：

有一份完整的 BOM  表，有3900+多项目。发现 生成一份完成所有产品  目录树时 ，但耗时间 （约40S ）。

想这样实现，先筛选某个产品，然后生成该产品的目录树 ，可发现 还是生产 整个目录树 。 代码如下 ，该如何改正 ，才不是生成所有的目录树呢 ？

 tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("BOM")
tr.StopRedraw()
tr.Nodes.Clear

For Each dr As DataRow In dt.datarows
    If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 2 Then
        nd = tr.Nodes.Add(dr("科目代码"), dr("科目名称"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw()

1、耗时问题的解决方法：

http://www.foxtable.com/help/topics/2439.htm

2、Table才是筛选后的行，DataTable始终包括所有行：

For Each dr As Row In Tables("xxx").rows
    If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 2 Then
        nd = tr.Nodes.Add(dr("科目代码"), dr("科目名称"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next

好好看看：

http://www.foxtable.com/help/topics/1467.htm