不明白说什么,是不是这样?
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
For Each dr As DataRow In t.DataTable.Select("[父零件编号] = '" & r1("物料编号") & "'")
nd = tr.Nodes.Add(dr("子零件编号"),dr("物料名称"))
Functions.Execute("AddChildren",nd,t.DataTable)
Next