第二级TREEVIEW加载错误

george

我加载第一级没问题

但到第二级就错了,不明白,请指教

Sub 加载产品订单树()

Dim cp As DAO.Recordset

Dim cpdd As DAO.Recordset

Dim nodx As Node

Dim i

Dim k

Set nodx = Tree.Nodes.Add(, , "A", "按产品订单查询")

nodx.Sorted = True

Set cp = CurrentDb.OpenRecordset("产品")

Set cpdd = CurrentDb.OpenRecordset("订单")

cp.MoveFirst

For i = 1 To cp.RecordCount

    Set nodx = Tree.Nodes.Add("A", tvwChild, cp("产品名称"), cp("产品名称"))

    For k = 1 To cpdd.RecordCount

        If cpdd("产品名称") = cp("产品名称") Then

            Set nodx = Tree.Nodes.Add(cp("产品名称"), tvwChild, cpdd("业务编号"), cpdd("业务编号"))

        End If

        cpdd.MoveNext

    Next

    cp.MoveNext

Next

End Sub

george

谢谢先