treelist

Question

Dim nod As Node Set nod = TreeView(0).Nodes.Add(, , "One", rst!name)
 rst.MoveNext
 'Loop
 Set nod = TreeView(0).Nodes.Add("One", , , rst!name)
 rst.MoveNext
 Set nod = TreeView(0).Nodes.Add("One", tvwChild, , rst!name) nod.EnsureVisible请问怎样用循环自动执行添加数据表NAME字段的值？

Answer 1

do while not rst.eof
   '加节点
   rst.movenext
loop

Answer 2

IF NOT (RS.EOF AND RS.BOF) THEN
   Rs.MoveFirst
   DO WHILE NOT(RS.EOF)
      '添加节点.
      RS.MOVENEXT
   LOOP
END IF

Answer 3

Dim nod As NodeDo While Not rst.EOF Set nod = TreeView(0).Nodes.Add(, , "One", rst!deptno) rst.MoveNext
Loop
出错啦，提示：关键字不能唯一，还请帮忙

Answer 4

这样：
Dim nod As Node
Dim i As Integer
i = 0
Do While Not rst.EOF
 i = i + 1
 Set nod = TreeView(0).Nodes.Add(, , "One" & i, rst!deptno) rst.MoveNext
Loop