请帮我看一下这段代码问题出在什么地方？谢谢！！！

Question

while not ADOQuery1.Eof do begin
    with TreeView1.Items do begin
      Clear;       NewItem := Add(nil, 'Trade'); 
      NewSubItem := AddChild(NewItem, ADOQuery1.FieldValues['Name']);
    end;
    ADOQuery1.Next;
  end;只是要将表中的记录全部追加进TREEVIEW中，但执行这段代码，始终只能追加表中的最后一条记录。不知是何原因，望指教。重谢！！！

Answer 1

是不是每次都被你clear掉了？所以只有最后一条？

Answer 2

将clear移到循环之外，while的前面.

Answer 3

Clear;       
while not ADOQuery1.Eof do begin
  with TreeView1.Items do begin
    NewItem := Add(nil, 'Trade'); 
    NewSubItem := AddChild(NewItem, ADOQuery1.FieldValues['Name']);
   end;
   ADOQuery1.Next;
end;Clear 方错地方了.

Answer 4

好象是将clear移到循环之外，while的前面.，你使一使
给分，谢谢

Answer 5

每执行一次你就把数据给清空了，当然不行啦
把Clear放在While Not ADOQuery1.eof do 的前面就Ok了