怎样动态设置tree view（在线等待）

Question

我有一张表，有系部，年级，班级等内容，现已将系部设为根节点，但要怎样才能将年级，班级加入到相应的根节点（系部）中？？

Answer 1

select 年级 from table where 系部=a系部
while not query.eof do
begin
  添加节点
end;
重复以上工作添加班机

Answer 2

设置一个节点变量．
var
  ＭｙＮｏｄｅ　：TTreeNode;
  MyNode1:TTreeNode
begin
  MyNode := TreeView1.Items.Add(nil,系部名称);
  For .... do 
  begin
    MyNode1:=TreeView1.items.addChild(MyNode,年级名称);
    For ... Do
    Begin
      TreeView1.items.addchild(MyNode1,班级名称);
    end;
  end ;
end;
这样的几次循环后你的要求也就基本上满足了!