我的全部代码如下:    为什么红色部份的    ＦＯＲ部份为什么只循环一次？？？？？



Private Sub Form_Load()
Me.WindowState = 2   '窗体最大化
'设置ADODC1连接到yxhmk.mdb
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\yxhmk.mdb;Persist Security Info=False"
'连接<使用单位>表
Adodc1.RecordSource = "select * from 使用单位"
'刷新连接
Adodc1.Refresh
'设树状控件的图标
TreeView1.ImageList = 树状图标
'设置控件的第一级节点=====================================================================
Set nodes_1 = Me.TreeView1.Nodes.Add(, , "使用单位", Adodc1.Recordset.Fields("使用单位"), 1)

'设置第二级节点====================================================================================

'连接<线路档案>表
Adodc1.RecordSource = "线路档案"
'刷新连接
Adodc1.Refresh
'获得记录集的条数
M = Adodc1.Recordset.RecordCount

ReDim X(M) As String, Y(M) As String
 For I = 2 To M
   X(I) = Adodc1.Recordset("线路名称")
   Y(I) = Adodc1.Recordset("线路编号")
    Set nodes_1 = Me.TreeView1.Nodes.Add("使用单位", tvwChild, "A" & Y(I), Y(I) & "|" & X(I), 2, 5)
    Adodc1.Recordset.MoveNext    '记录集的指针转到下一条
 Next
'设置第三级节点====================================================================================
Adodc1.RecordSource = "台区档案"

'刷新连接
Adodc1.Refresh
'获得记录集的条数
'B = Adodc1.Recordset.RecordCount
ReDim FF(B) As String, EE(B) As String, BB(B) As String
  For I = 1 To 6
     Adodc1.Refresh '刷新连接
    Do While Adodc1.Recordset.EOF = False
      FF(B) = Adodc1.Recordset("所属线路")
      EE(B) = Adodc1.Recordset("台区编号")
      BB(B) = Adodc1.Recordset("台区名称")
       If FF(B) = "0" & I Then
         Set nodes_1 = Me.TreeView1.Nodes.Add("A" & "0" & I, tvwChild, "A" & EE(B), EE(B) & "|" & BB(B), 3, 5)
       End If
      Adodc1.Recordset.MoveNext    '记录集的指针转到下一条
    Loop
   Next I
End Sub

[[it] 本帖最后由 yxhmk 于 2008-9-1 15:53 编辑 [/it]]

Ｍ＝６应该是没问题的．

不过那个ADD方法的第一个参数是不是key？　　　　这句不怎么理解？

每个结点的key应该不一样吧？　　　　　　　　　这个是当然的因为ＫＥＹ是不能重复的．

对！在Do循环中是不变的　　　例：如果Ｉ在ＦＯＲ中＝１　那么ＤＯ循环中的Ｉ就一直是＝１

那是不是
    Do 循环完后,因为Do While Adodc1.Recordset.EOF  已经为:  =True
   
然后就改成如下:
     For I = 1 To M
    Adodc1.Refresh        '<--------------------添加了这句
    Do While Adodc1.Recordset.EOF = True
      FF(B) = Adodc1.Recordset("所属线路")
      EE(B) = Adodc1.Recordset("台区编号")
      BB(B) = Adodc1.Recordset("台区名称")
      If FF(B) = "0" & I Then
       Set nodes_1 = Me.TreeView1.Nodes.Add("A" & "0" & I, tvwChild, "A" & EE(B), EE(B) & "|" & BB(B), 2, 6)
      End If
      Adodc1.Recordset.MoveNext    '记录集的指针转到下一条
    Loop
  Next I
但是这句:Set nodes_1 = Me.TreeView1.Nodes.Add("A" & "0" & I, tvwChild, "A" & EE(B), EE(B) & "|" & BB(B), 2, 6)   又报错.为什么?

不行还是不行