请指点!关于Treeview控件使用!

petrelai

我对这个Treeview控件使用真的是一个头两个大,各位可不可指点一下?
还有,请指点一下:这们的效果实现的步骤,千万分感谢^^^^^^^^^^^^^

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

zhengjialon

可以在本站上下载一个示例来看，有很多的，先从基础的方法看起，才能很好的实现，不要想一次做出来。

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

petrelai

嘻

zhengjialon

笑什么？说错了？

zhengjialon

看看这篇文章：
http://www.office-cn.net/Article_Show.asp?ArticleID=310

petrelai

版主大人,您不要误会了,我是不好意思的笑,绝对不是没有什么其他意思!还有谢谢你帮忙!

petrelai

版主大人,请帮忙一下,请注释一下,好吗?
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