[求助] 帮忙看下这个递归怎么改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

函数

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

Dim drs As List(of DataRow)

drs = dt.Select("[父零件编号] = '" & nd.name & "'")

For Each dr As DataRow In drs

Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("子零件编号"),dr("物料名称"))

Functions.Execute("AddChildren",cd,dt)

窗口上由于这个结构的根是在另外一个表里的，所以就不知道如何添加进这个递归了，请帮忙看看

Dim r1 As Row = Tables("BOM管理_Table1").Current

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add(r1("物料编号"),r1("物料名称"))

For Each dr As DataRow In t.DataTable.datarows

nd = tr.Nodes.Add(dr("子零件编号"),dr("物料名称"))

Functions.Execute("AddChildren",nd,t.DataTable)

主题：[求助] 帮忙看下这个递归怎么改