'如下就是为每个节点增加唯一的关键字 Set nodX = TreeView1.Nodes.Add(, , "GradeJh0", "一年级", 1) '增加根节点,"GradeJh0" 为关键字名 For i = 1 To 3 '"RootNodekey1" & i 为节点的关键字 Set nodX = TreeView1.Nodes.Add("GradeJh0", tvwChild, "RootNodekey1" & i, "高一" & i & "班", 2) Next Set nodX = TreeView1.Nodes.Add(, , "GradeJh1", "二年级", 1) '增加根节点 For i = 1 To 3 '"RootNodekey2" & i 为节点的关键字 Set nodX = TreeView1.Nodes.Add("GradeJh1", tvwChild, "RootNodekey2" & i, "高二" & i & "班", 2) Next Set nodX = TreeView1.Nodes.Add(, , "GradeJh2", "三年级", 1) '增加根节点 For i = 1 To 3 '"RootNodekey3" & i 为节点的关键字 Set nodX = TreeView1.Nodes.Add("GradeJh2", tvwChild, "RootNodekey3" & i, "高三" & i & "班", 2) ' Next
treeview1.nodes.add [Relative],[Relativeship],[Key],[Text],[Image],[SelectedImage]
Relative与Relativeship是TreeView分组关系的关键字,Key是你的关键字,Text是标题,Image和SelectedImage是TreeView项目的图标。根项目的Relative与Relativeship可以为空,子项的Relative是对应你的Key,而Relativesip是tvwChild。
For i = 1 To 3 '"RootNodekey1" & i 为节点的关键字
Set nodX = TreeView1.Nodes.Add("GradeJh0", tvwChild, "RootNodekey1" & i, "高一" & i & "班", 2)
Next Set nodX = TreeView1.Nodes.Add(, , "GradeJh1", "二年级", 1) '增加根节点
For i = 1 To 3 '"RootNodekey2" & i 为节点的关键字
Set nodX = TreeView1.Nodes.Add("GradeJh1", tvwChild, "RootNodekey2" & i, "高二" & i & "班", 2)
Next Set nodX = TreeView1.Nodes.Add(, , "GradeJh2", "三年级", 1) '增加根节点
For i = 1 To 3 '"RootNodekey3" & i 为节点的关键字
Set nodX = TreeView1.Nodes.Add("GradeJh2", tvwChild, "RootNodekey3" & i, "高三" & i & "班", 2) '
Next
text是显示在treeview控件上的节点的文本,可以重复。比如你的树上可以有两个text为“其它的”节点,但是不能有两个key都为“其它的”节点。你现在遇到的问题,多半是加节点的时候设置了重复的key导致的。你可以学习一下nodes的add方法,为每个新加的节点设置不同的key就行了。