大家来看看这个如何实现？谢谢了！

Question

如何用ttable把表中的一字段的所有记录1个1个添加到treeview的subitem中！！可能讲得不太明白？我的意思是用treeview显示表中的某字段的所有记录，字段为item，所有记录为subitem。比如我想把信息学院这个字段的所有系名反应在treeview上，问大家该如何实现？

Answer 1

netwolfds(晓竹) 在吗，帮帮我啊

Answer 2

with Table1 do 
  while not EOF do 
    if FieldValues['Department']='Computer' then
      TreeView1.Items.AddChild(Nil,FieldValues['Department']);

Answer 3

var tNode: TTreeNode;
begin
  tNode := TreeView1.Items.Add(nil, '信息学院');
  with TreeView1.Items do begin
    Table1.First;
    while not Table1.Eof do begin
      AddChild(tNode, Table1.FieldValues['信息学院']);
      Table1.Next;
    end;
  end;
end;

Answer 4

var tNode: TTreeNode;
begin
  tNode := TreeView1.Items.Add(nil, '信息学院');
    Table1.First;
    while not Table1.Eof do begin
      tNode.Caption   :=Table1.FieldValues['信息学院'];
      tNode.Subitem[0]:=Table1.FieldValues['姓名];
      tNode.Subitem[1]:=Table1.FieldValues['性别'];
      Table1.Next;
  end;
end;

Answer 5

有误不好意思少加一条语句
var tNode: TTreeNode;
begin
    Table1.First;
    while not Table1.Eof do begin
      tNode := TreeView1.Items.Add;
      tNode.Caption   :=Table1.FieldValues['信息学院'];
      tNode.Subitem[0]:=Table1.FieldValues['姓名];
      tNode.Subitem[1]:=Table1.FieldValues['性别'];
      Table1.Next;
  end;
end;