树控件添加子节点问题
Set nodx = TreeView1.Nodes.Add(, , "r", "支队")
For i = 1 To rs.RecordCount
Set nodx = TreeView1.Nodes.Add("r", tvwChild, "child" & i, rs.Fields(0))
rs.MoveNext
i1 = "Child" & i
For j = 1 To rs2.RecordCount
str = MsgBox("c" & j)
Set node = TreeView1.Nodes.Add(i1, tvwChild, "c" & j, rs2.Fields(0)) rs2.MoveNext
For k = 1 To rs.RecordCount
' Set nodx = TreeView1.Nodes.Add("c", tvwChild, , rs1.Fields(0))' rs1.MoveNext
Next k
Next j
Next i
红色部分总是告诉我未发现元素.
我想实现的效果是
支队
----中队1
----任务1
----任务2
----任务3
:
:
----任务N
----中队2
----中队3
:
:
----中队N
请各位高手帮助