Office中国论坛/Access中国论坛

标题: 请教树形控件加载数据的问题！ [打印本页]

作者: 6831860 时间: 2006-8-23 06:46
标题: 请教树形控件加载数据的问题！
Sub loadtree()
Dim objnodes As Node
Dim rst As DAO.Recordset
Dim rs As DAO.Recordset
Dim i, j As Integer
Set objtree = TreeView6.Object
objtree.nodes.Clear
Set objnodes = objtree.nodes.Add(, , "No.1", "所有客户")
Set rst = CurrentDb.OpenRecordset("client查询")
Set rs = CurrentDb.OpenRecordset("client 查询")
For i = 0 To rst.RecordCount - 1
      Set objnode = objtree.nodes.Add("No.1", tvwChild, "父" & rst.Fields("TypName"), rst.Fields("TypName"))
      Debug.Print rst.Fields("TypName")
      rs.MoveFirst
      For j = 1 To rs.RecordCount

         Debug.Print rs.Fields("TypName")
         If rst.Fields("TypName") = rs.Fields("TypName") Then
            Set objnode = objtree.nodes.Add("父" & rst.Fields("TypName"), tvwChild, "子" & rs.Fields("name"), rs.Fields("name"))
         End If
      rs.MoveNext
      Next
rst.MoveNext
Next
rst.Close
rs.Close
End Sub

请问这段程序有何问题！为何加载数据不对呢！此程序问题是在frm主窗体里[attach]19940[/attach]

[此贴子已经被作者于2006-8-22 22:48:27编辑过]

作者: fan0217 时间: 2006-8-23 07:28
哪里有不对呢？

作者: 6831860 时间: 2006-8-23 17:08
这段程序里rs数据集的第一条记录在加载时不知为何跳出循环退出，而第2-5条记录加载正常循环时没有啥问题。结果导致rs第一条记录下应有子节点的，却没有加载进去

作者: yjisme 时间: 2006-8-24 01:16
其实这里和程序比较好用，http://www.office-cn.net/forum.php?mod=viewthread&tid=45467

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)