我想实现TreeView控件这样一个功能！！

Question

我数据库的内容是这样的！！
         编号     级别              菜单代码           菜单名称 是否是父目录  是否是子目录  父目录名称                    
CD10001 A          cxmk       查询模块 1     0          查询模块
CD10002 A1         cx         查询 0     1          查询模块
CD10003 A2         xxcx       详细查询 0     1          查询模块
CD10004 B          sjcj       数据采集 1     0          数据采集
CD10005 B1         azcj       安装采集 0     1          数据采集
CD10006 B2         wxcj       维修采集 0     1          数据采集
CD10007 C          jd         结单 1     0          结单
CD10008 C1         azjd       安装结单 0     1          结单
CD10009 C2         wxjd       维修结单 0     1          结单 想要实现在treeview控件中显示出来！！ 肯求各位辛苦！！

Answer 1

 Dim NodeX, NodeY, NodeZ As Node
   dim rsx as adodb.Recordset
   set rsX=searchsql(select * from table where 是否是父目录=1)''取所需要的记录
   do while not rsx.eof
       Set NodeX = .add(, , , rsx!彩旦名称+彩旦代码+级别。)
        dim rsy as adodb.recordset
         set rsy =searchsql(select * from table where 父目录名称=rsx!菜单名称)''取所需要的记录
         do while not rsy .eof
              Set Nodey = .add(NodeX , tvwChild, , rsx!彩旦名称+彩旦代码+级别。)
              就这样一级一级循环下去就行了             rsy.movenext 
         loop
         rsy.close
         set rsy=nothing
        rsx.movenext
   loop
   rsx.close
   set rsx=nothing

Answer 2

这种二维表结构的数据最好用Listview显示较好,用TreeView就要说清树是怎样的树,根是什么

Answer 3

表结构设计不太好.id,fid,name