很急：关于treeview 控件的一个小问题

Question

我的代码如下：
Dim TempRst As New ADODB.Recordset
Dim sKey As String
With cnn.RST
cmdStart.Enabled = False
cnn.OpenRST ("Select * from KC_tab where KC_SelState=1")
While Not .EOF And Not .BOF
    sKey = LRrim(.Fields("KC_code"))
    tvwCourse.Nodes.Add , , sKey, .Fields("KC_Code"), pct.ListImages(1).Picture, pct.ListImages(2).Picture
    TempRst.Open "Select * from Stud_course_tab where KC_code='" & .Fields("KC_Code") & "'", cnn.objCnn, adOpenStatic, adLockBatchOptimistic
    While Not TempRst.EOF And Not TempRst.BOF
        tvwCourse.Nodes.Add sKey, tvwChild, , TempRst.Fields("Stud_Code")
        TempRst.MoveNext
    Wend
    .MoveNext
    TempRst.Close
Wend
End With为会我只要一添加图标，它就会报说“无效关键字”，但只要去掉图标就可以正常运行，但是没有图像

Answer 1

tvwCourse.Nodes.Add , , sKey, .Fields("KC_Code"), pct.ListImages(1).Picture, pct.ListImages(2).Picture先将tvwCourse与pct.ListImages(1),pct.ListImages(2)关联，然后直接填对应图标的关键字
例如有两个图标为ICO1,ICO2,那就应为:
tvwCourse.Nodes.Add , , sKey, .Fields("KC_Code"), ICO1, ICO2

Answer 2

看下此NOTE的Children屬性是不是為0應該就可以吧

Answer 3

例如你想得到结点I的根结点可以用这种方法
TreeView1.Nodes(I).Root,返回一个index，然后把你准备判断是否是根结点的INDEX值与之比较就行了。根结点的INDEX值一般是0

Answer 4

谢谢，我找到了一个方法，用一个大数组来储存所有Root Node的Key值，然后判断当前结点是否在Root Node集中