Office中国论坛/Access中国论坛

标题: 请指点!关于Treeview控件使用! [打印本页]

作者: petrelai 时间: 2004-1-15 01:27
标题: 请指点!关于Treeview控件使用!
我对这个Treeview控件使用真的是一个头两个大,各位可不可指点一下?
还有,请指点一下:这们的效果实现的步骤,千万分感谢^^^^^^^^^^^^^

[此贴子已经被作者于2004-1-28 20:22:01编辑过]

作者: zhengjialon 时间: 2004-1-15 16:18
可以在本站上下载一个示例来看，有很多的，先从基础的方法看起，才能很好的实现，不要想一次做出来。

[此贴子已经被作者于2004-1-15 11:48:20编辑过]

作者: petrelai 时间: 2004-1-15 19:01
嘻

作者: zhengjialon 时间: 2004-1-15 19:48
笑什么？说错了？

作者: zhengjialon 时间: 2004-1-15 21:53
看看这篇文章：
http://www.office-cn.net/Article_Show.asp?ArticleID=310

作者: petrelai 时间: 2004-1-15 23:26
版主大人,您不要误会了,我是不好意思的笑,绝对不是没有什么其他意思!还有谢谢你帮忙!

作者: petrelai 时间: 2004-1-16 01:59
版主大人,请帮忙一下,请注释一下,好吗?
Dim syDB As Database, syRecSet As DAO.Recordset, sySubRecSet As DAO.Recordset
Dim strID As String, imgID As Integer

Set syDB = CurrentDb()

Set syRecSet = syDB.OpenRecordset("SELECT 顺序, 基础资料名称,strRecSet FROM 基础资料名称 ORDER BY 顺序;")
With syRecSet
      .MoveLast
      .MoveFirst
End With

Do While Not syRecSet.EOF
      strID = "No" & syRecSet("顺序")
      imgID = CInt(syRecSet("顺序"))
      Set mNode = AtxTreeView.Nodes.Add(, , strID, syRecSet("基础资料名称"), 7, 8)
      mNode.Tag = "main"
      Set sySubRecSet = syDB.OpenRecordset(syRecSet("strRecSet"))
      With sySubRecSet
         .MoveLast
         .MoveFirst
      End With
      Do While Not sySubRecSet.EOF
         Set mNode = AtxTreeView.Nodes.Add(strID, tvwChild, strID & sySubRecSet("NO"), sySubRecSet("Name"), imgID, 6)
         mNode.Tag = "sub"
         sySubRecSet.MoveNext
      Loop
      syRecSet.MoveNext
Loop
With AtxTreeView
      .Refresh
      .Nodes(1).Sorted = True
      .Nodes(1).Expanded = True
End With

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