treeview????的问题？？？

dadihongchang 2009-03-01 02:52:35

表：
tbAAA
id Name
001 AAAAA
002 BBBBB
003 CCCCC
004 DDDDD
005 EEEEE

怎么把它显示在treeview中
显示的形式如
---AAAAA
---BBBBB
--CCCCC
---DDDDD
---EEEEE

...全文

96 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xrongzhen 2009-03-02

打赏
举报

[Quote=引用 2 楼 dadihongchang 的回复:]
谢谢楼上的问答

为什么提示

.Key = "n" & rs.Fields("id")

说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？
[/Quote]
你是不是放到Click事件中，连续点了两下啊，或者别的事件，连续触发两次，在之前加上 TreeView1.Nodes.Clear
在1楼代码上加一句



'建立数据库连接

    Dim conn As New ADODB.Connection

    conn.open "…………"

    

    '查询tbAAA表

    Dim rs As New ADODB.Recordset

    rs.Open "select id,name from tbAAA", conn, adOpenKeyset, adLockReadOnly



    '添加到Treeview中

    TreeView1.Nodes.Clear            '加上这句！！！

    While Not rs.EOF

        Dim mNode As Node

        Set mNode = TreeView1.Nodes.Add

        With mNode

            .Text = rs.Fields("name")

            .Key = "n" & rs.Fields("id")

        End With

        Set mNode = Nothing

    Wend

    rs.Close

    Set rs = Nothing

    

    '释放数据库连接

    conn.Close

    Set conn = Nothing

LWMWORK 2009-03-02

打赏
举报

Do While Not rs.EOF
Set nodX = TreeView1.Nodes.Add(, , , rs!name, 1)
rs.MoveNext
Loop

clear_zero 2009-03-02

打赏
举报

[Quote=引用 3 楼 dadihongchang 的回复:]
谢谢楼上的问答

为什么提示

.Key = "n" & rs.Fields("id")

说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？

[/Quote]

你确定这个是唯一的，你的primary key是id列？
断点调试下看看

dadihongchang 2009-03-01

打赏
举报

谢谢楼上的问答

为什么提示

.Key = "n" & rs.Fields("id")

说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？

dadihongchang 2009-03-01

打赏
举报

谢谢楼上的问答

为什么提示

.Key = "n" & rs.Fields("id")

说key不是唯一哦
我在数据库中这列的字段都是唯一的哦？？

三楼の郎 2009-03-01

打赏
举报



    '建立数据库连接

    Dim conn As New ADODB.Connection

    conn.open "…………"

    

    '查询tbAAA表

    Dim rs As New ADODB.Recordset

    rs.Open "select id,name from tbAAA", conn, adOpenKeyset, adLockReadOnly



    '添加到Treeview中

    While Not rs.EOF

        Dim mNode As Node

        Set mNode = TreeView1.Nodes.Add

        With mNode

            .Text = rs.Fields("name")

            .Key = "n" & rs.Fields("id")

        End With

        Set mNode = Nothing

    Wend

    rs.Close

    Set rs = Nothing

    

    '释放数据库连接

    conn.Close

    Set conn = Nothing