主题：怎样在狐表中使用金蝶格式的BOM表

红色代码，改成用dr给表赋值。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr As DataRow In DataTables("bom表").Select("类型 ='成品'")
    Dim nd As WinForm.TreeNode= trv.Nodes.Add(dr("物料名称"))
    Functions.Execute("递归", nd, dr)
Next
trv.Nodes.Insert("显示所有",0)

--------------------------------------------------

Dim pnd As WinForm.TreeNode = args(0)
Dim pdr As DataRow = args(1)

For Each dr As DataRow In DataTables("bom明细表").Select("bom码 = '" & pdr("bom码") & "'")
    Dim nd As WinForm.TreeNode = pnd.Nodes.Add(dr("零件名称"))
    If dr.IsNull("父键") = False Then
        Dim fdr As DataRow = DataTables("bom表").Find("父键 = '" & dr("父键") & "'")
        If fdr IsNot Nothing Then
            Functions.Execute("递归", nd, fdr)
        End If
    End If
Next