求助啊,大家帮帮我,treeview的问题

我有一个过程是用来打开地区列表的表的结构是id  自动编号
city 城市名称
parentid 父目录我的过程如下
Private Sub show1()
TreeView1.Nodes.Clear
Set rs = New ADODB.Recordset
sqlstr = "select * from Bcity"
rs.Open sqlstr, conn, 1, 3Dim nodX As Node    '声明 Node 变量。
  If Not rs.EOF Then
       rs.MoveFirst
       TreeView1.Nodes.Clear
         Do While Not rs.EOF
          If rs.Fields("ParentID") = 0 Then
   
              Set nodX = TreeView1.Nodes.Add(, , ,rs!city)
              Else
            (以下这一句不知道要怎么写,帮帮我)
            =======================================================
             Set nodX = TreeView1.Nodes.Add(,, , rs!parentid, rs!city)
=============================
            End If
          rs.MoveNext
       Loop
       
   End If
   
End Sub

解决方案 »

  1.   

    treeview要一层层的加，看你的代码晕脑袋，把的哪个表导入access，mail to:[email protected]不过要在6点前哦
      

  2.   

    自己的,5555555555
    [email protected]数据库就一个表Bcity字段如下id  自动编号
    city 城市名称
    parentid 父目录
      

  3.   

    晕。偶灭收到，你重新找个mail发吧。
      

  4.   

    偶有解决方案,发给偶
    偶的邮箱是[email protected]
      

  5.   

    daisy8675(莫依)你的邮箱老是发不成功,我用126.com的也不行.therockdelt(Dm和弦)谢谢你的帮助,我已经发给你了.
      

  6.   

    to:fly70(午后阳光)
       现在解决了吗？
      

  7.   

    我的却收不到你的mail，你叫别人帮你弄吧，偶要回家了，呵呵五一开心
      

  8.   

    我用yahoo的又发了一次给你,如果还收不到,就只能汗了
    不过,不管如何,还是很感谢你,
    daisy8675(莫依)祝你五一快乐
      

  9.   

    fly70(午后阳光):你的邮箱是多少?
      

  10.   

    或者[email protected],谢谢大伙!
      

  11.   

    If rs.Fields("ParentID") = 0 Then
            Set nodX = TreeView1.Nodes.Add(, , "#" & rs!ID, rs!City)
        Else
            Set nodX = TreeView1.Nodes.Add("#" & rs!ParentID, tvwChild, "#" & rs!ID, rs!City)
        End If