树控件添加子节点问题

oscarone 2008-04-21 11:32:55
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
请各位高手帮助
...全文
105 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
oscarthree 2008-04-22
  • 打赏
  • 举报
回复
RTYRTERTERTRET

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧