TreeView数据树目录

我以下这些代码是将数据库的记录添加到TreeView1中使其成为数据树目录，  
  不知为何当我点击父节点时右边的DBGrid不显示任何数据，  
  而当我点击子节点时，DBGrid可显示当前记录，  
  不知怎么改才能当我点击父节点时右边的DBGrid显示所有子节点的数据。  
   
  procedure   TForm1.TreeView1Change(Sender:   TObject;   Node:   TTreeNode);  
  begin  
        Datasource1.Enabled   :=   Node.Data   <>   nil;  
        if   DataSource1.Enabled   then  
            Table1.GotoBookmark(node.Data);  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
            FieldList   :=   TStringList.create;  
            TreeView1.items.BeginUpdate;  
            Table1.first;  
            while   not   Table1.eof   do  
            begin  
              TreeAddItem(TreeView1,   GetFieldList,   Table1.getBookmark,   false);  
              Table1.next;  
            end;  
            FieldList.clear;  
            TreeView1.Alphasort;  
            TreeView1.items.Endupdate;  
            TreeView1.items[2].selected   :=   true;  
  end;  
   
  function   TForm1.GetFieldList:TStringList;  
  begin  
            FieldList.clear;  
            FieldList.add(Table1.fieldbyname('年级').asstring);  
            FieldList.add(Table1.fieldbyname('班级').asstring);  
            //FieldList.add(Table1.fieldbyname('姓名').asstring);  
            Result   :=   FieldList;  
  end; 问题点数：50、回复次数：2Top

1 楼soldier7451（单飞的鸟）回复于 2003-10-01 03:27:40 得分 50

看不到你dbgrid的数据源是什么  
  我是这样实现的：  
  当点击父节点时，作一个查询，select   *   from   table   where   parentNodeNum=getNodeNum(treeview1.selected),然后将dbgrid的datasource设为这个查询结果，应该就能出来了Top

2 楼LinLinLin（当霖绝顶）回复于 2003-10-02 00:08:34 得分 0

TO:   soldier7451(单飞的鸟)  
  如果不用SQL应该怎么实现呀，因为我dbgrid的数据源是Table，而不是query。Top

相关问题

• 节点
• 数据
• fieldlist
• treeview
• dbgrid
• fieldbyname
• asstring
• 点击父节点时
• tform
• datasource

• 帖主：LinLinLin
• soldier7451

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载