[5分]煮江品茶前辈的自定义子程序InsertTB,数据通过主窗体加入子窗体

参考煮江品茶前辈的MRP中的BOM管理来设计,数据通过主窗体加入子窗体,因本人新手,代码不知怎修改

Option Compare Database
Option Explicit
Dim selnode As node

Private Sub Form_Load()
    Me.子窗体.Form.Filter = "false"
    Me.子窗体.Form.FilterOn = True
End Sub

Private Sub SetTree()
    Dim treenodes As Nodes
    Dim rootnode As node
    Dim childnode As node
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long

    Set treenodes = Me.TreeView0.Nodes
    treenodes.Clear
    Set rootnode = treenodes.Add(, , "Z", "目录")
    rootnode.Expanded = True

    ssql = "select DISTINCT 产品编码 from BOM表"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        Set childnode = treenodes.Add("Z", tvwChild, "A" & Format(i, "000"), DLookup("料品编码", "料品资料", "料品id=" & rs!产品编码.Value))
        rs.MoveNext
    Next
    rs.Close: Set rs = Nothing
    Set treenodes = Nothing: Set rootnode = Nothing: Set childnode = Nothing

End Sub
Private Sub SetChildren(ByVal node As node)
    Dim treenodes As Nodes
    Dim childnode As node
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
    Dim str As String

    node.Expanded = True
    str = node.Key & Chr(Asc(Left(node.Key, 1)) + 1)

    Set treenodes = Me.TreeView0.Nodes

    ssql = "select 子件编码 from BOM表 where 产品编码=" & DLookup("料品id", "料品资料", "料品编码='" & node.Text & "'")
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        Set childnode = treenodes.Add(node.Key, tvwChild, str & Format(i, "000"), DLookup("料品编码", "料品资料", "料品id=" & rs!子件编码.Value))
        childnode.Expanded = True
        Call SetChildren(childnode)
        rs.MoveNext
    Next
    rs.Close: Set rs = Nothing
    Set treenodes = Nothing:  Set childnode = Nothing
End Sub

Private Sub 新增_Click()
    Call InsertTB("BOM表", "BOMid", Me.Form, Me.子窗体.Form)
End Sub

Private Sub 修改_Click()
    Call UpdateTB("BOM表", "BOMid", Me.Form, Me.子窗体.Form)
End Sub

Private Sub 删除_Click()
    Call DeleteTB("BOM表", "BOMid", Me.Form, Me.子窗体.Form)
End Sub