主题：[求助]改进BOM目录树的生成方式

情况如下：

有一份完整的 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()

 

 

 

 

 

此主题相关图片如下：qq截图20130903111725.jpg