TreeView控件的问题

Question

Private Sub Form_Load()
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "r", "Root")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "c1", "Child 1")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "c2", "Child 2")
   Set nodX = TreeView1.Nodes.Add("r", tvwChild, "c3", "Child 3")
   Set nodX = TreeView1.Nodes.Add("c3", tvwChild, "c4", "Child 4")
   Set nodX = TreeView1.Nodes.Add("c3", tvwChild, "c5", "Child 5")
   Set nodX = TreeView1.Nodes.Add("c5", tvwChild, "c6", "Child 6")
   Set nodX = TreeView1.Nodes.Add("c5", tvwChild, "c7", "Child 7")
   nodX.EnsureVisible
   TreeView1.BorderStyle = vbFixedSingle
End Sub

Answer 1

这是增加接点的语句：Set nodX = TreeView1.Nodes.Add(name, tvwChild(relation), key, text,image,selectiamge) 说简单一点就是 那 nodx中的key有重复的。如上面的 4 5 6行的关键字就分别是 c1 c2 c3

Answer 2

Set NodX = TreeView1.Nodes.Add("Root", tvwChild, sp_id, NodStr, "A")主要是sp_id出了什么问题，可不可以这么写？？？

Answer 3

liangxuan1979(不贪) 不是说了吗？
节点的key不能为数字。改为 sp_id & "A" 或"A" &sp_id就ok拉！