treeview与数据库的问题

数据表  
  a         aa         aaa  
  b         bb         bbb  
  c         cc         ccc  
  d         dd         ddd  
   
   
  用代码怎么才能实现这样:  
  a  
      aa  
            aaa  
  b  
      bb    
          bbb  
  c    
      cc  
          ccc  
  d    
      dd    
          ddd  
   
   
   
  Private   Sub   Form_Load()  
  TreeView1.Nodes.Clear  
  Dim   nodex   As   Node  
  Dim   mrc   As   ADODB.Recordset  
  Dim   mrc1   As   ADODB.Recordset  
  Dim   mrc2   As   ADODB.Recordset  
  Dim   str   As   String  
  Dim   a   As   String  
  TreeView1.LineStyle   =   tvwRootLines  
  a   =   "系别"  
  str   =   "select   distinct   系别   from   class   order   by   系别"  
  Set   mrc   =   Executeqx(str)  
  str   =   "select   distinct   系别,班级   from   class   order   by   系别,班级"  
  Set   mrc1   =   Executeqx(str)  
  str   =   "select   distinct   系别,班级,专业   from   class   order   by   系别,班级,专业"  
  Set   mrc2   =   Executeqx(str)  
  Do   Until   mrc.EOF  
      mrc1.MoveFirst  
      Set   nodex   =   TreeView1.Nodes.Add(,   ,   a,   mrc.Fields(0),   1)  
      Do   While   Not   mrc1.EOF  
        If   mrc1.Fields(0)   =   mrc.Fields(0)   Then  
            Set   nodex   =   TreeView1.Nodes.Add(a,   tvwChild,   ,   mrc1.Fields(1),   3,   2)  
      End   If  
   
        mrc1.MoveNext  
      Loop  
      a   =   a   &   "1"  
      mrc.MoveNext  
  Loop  
   
  我这样的代码实现为  
  a  
      aa  
            aaa  
  b  
      bb  
            bbb  
  但是三层关系就搞不懂了  
  请问怎样增加专业这一节点,也就是孙节点,谢谢!~~ 问题点数：20、回复次数：4Top

1 楼aohan（aohan）回复于 2004-12-02 22:34:18 得分 10

你不要试图在一个  
  Do   Until    
   
  loop  
   
  中完成  
   
  分两个做不就搞定了Top

2 楼xiaotao2004（郁闷中...）回复于 2004-12-03 07:58:52 得分 0

UPTop

3 楼True1024（）回复于 2004-12-03 08:45:52 得分 10

你把MSDN里的Treeview   详细看看，你就明白了。Top

4 楼xiaotao2004（郁闷中...）回复于 2004-12-03 09:12:34 得分 0

我没安装MSDN呀!~~  
  能给出代码吗?Top

相关问题

• 代码
• mrc
• executeqx
• recordsetdim
• 系别
• 班级
• treeview
• nodex
• adodb
• aa aaab bb

• 帖主：xiaotao2004
• aohan
• True1024

• Visual Basic类图书
• Visual Basic类源码下载