关于使用treeview的问题

Question

http://www.pcdog.com/p/html/200515/5120057154_1.htm

Answer 1

Dim Xnod As Node
   Dim a 
    If Not rs.EOF Then
       Set Xnod = TreeView1.Nodes.Add(, , "key" & rs.Fields("parentid"), rs.Fields("parentid"))
    End If
    
    Do While Not rs.EOF
        If rs.Fields("ParentID") = "bl28" Then
        
             Set Xnod = TreeView1.Nodes.Add("key" & rs.Fields("ParentID"), tvwChild, "key" & rs.Fields("id"), rs.Fields("id"))
             
        Else
     
       If test = rs.Fields("id") Then           
             Set Xnod = TreeView1.Nodes.Add("key" & rs.Fields("ParentID"), tvwChild, "key" & rs.Fields("id") & a, rs.Fields("id"))
         Else
            
             Set Xnod = TreeView1.Nodes.Add("key" & rs.Fields("ParentID"), tvwChild, "key" & rs.Fields("id"), rs.Fields("id"))
         End If
          a = a + 1
          test = rs.Fields("id")
               
      End If
        
        Xnod.EnsureVisible
        rs.MoveNext
    Loop
      rs.Close这样写代码的话am3 和am4 下就各一个am5 这一级正常,可下一级am6,am7却重复(am6,am7各两个)出现在am3下的am5下,而没有在am4下的am5下显示.怎么样才能正常显示,哪位大哥能给帮我啊?(注:数据库连接正常)