睡能帮我解决一个关于的问题？？？？？？？

Question

http://www.wzjcw.net/vbgood/taishan/index.html
【迷你数据库浏览器】源代码。

Answer 1

Public Sub LoadTvStructure(tv As TreeView)
    Dim nd As New Node
    tv.Nodes.Clear
    rs.MoveFirst
    While Not rsUserInfo.EOF
        Set nd = tv.Nodes.Add(, , rs("Id").Value, rs("Id").Value)
        'nd.Expanded = True
        rs.MoveNext
    Wend
End Sub
把rs记录的id字段放到treeview中

Answer 2

Public Sub LoadTvStructure(tv As TreeView)
    Dim nd As New Node
    tv.Nodes.Clear
    rs.MoveFirst
    While Not rs.EOF
        Set nd = tv.Nodes.Add(, , rs("Id").Value, rs("Id").Value)
        'nd.Expanded = True
        rs.MoveNext
    Wend
End Sub
把rs记录的id字段放到treeview中

Answer 3

我试试看，不过我的数据库中的表是这样的 代号        名称       有无子节点
                                    01    DFDSSFDGGGG        Y
                                    0101     GGGBB           Y
                                    010101  FFFFF            N
                                     02    EIRE OIEIO        Y
                                    0201  FDFDKFK            N
注意：
   y/n代表yes/no  01与02是两个根接点，010101是说有三层
我觉得你的程序没有对有无子接点进行判断有点不完全？？？？？？
这只是我的想法，毕竟我还没试过
希望多多指教！！！！！！！
            谢谢大虾