简单问题：如何将表中某一字段的值添加在TreeView1的某一节点下？

Question

TreeView1.Items.AddChild(OneNode,Query.FieldbyName('fieldname').AsString);
Onenode就是你所指的那个结点

Answer 1

var AddNode: TTreeNode; //添加根结点
    ChildNode: TTreeNode; //新加的结点
query1.open;
while not query1.eof
begin
  ChildNode := TreeView1.Items.AddChild(AddNode,FieldByName('ColName').AsString);
  Query1.Next;
end;

Answer 2

我试了，可是为什么速度非常的慢，确切的说应该是死了，老半天都没反应,不知是何缘故？
我用ADOQuery1，表是SQL
语句如下
   var 
     tipNode,selectNode:TTreeNode;
begin
   selectNode:=Treeview1.selected;
   with ADOQuery1 do
   begin
   open;
   first;
   while  not eof do
    begin
      tipNode:=  TreeView1.Items.AddChild(selectNode,FieldByName('XM').AsString);
    end;
    Next;
  end;

Answer 3

先Treeview1.Items.BeginUpdate
加完后Treeview1.Items.EndUpdate

Answer 4

下
        var  
            tipNode,selectNode:TTreeNode;
  begin
        selectNode:=Treeview1.selected;
        with  ADOQuery1  do
        begin
        open;
        first;
        while    not  eof  do
          begin
              tipNode:=    TreeView1.Items.AddChild(selectNode,FieldByName('XM').AsString);
          Next;  /////Next在这里，要不然成死循环了。
          end;
      end;