一个关于ADO控件中的怪现象,请高手指点.

Question

while not adotable1.Recordset.EOF do
  begin
    listbox1.Items.Add(adotable1.Fieldbyname('AccountTypename').AsString );
    adotable1.Recordset.MoveNext;
  end;
adotable1的设置已经完成,表的'AccountTypeName'字段中明明有三条记录.可是最后显示在listbox1中的虽也是三条记录,但却都是相同的第一条.
实在不解.

Answer 1

while not adotable1.EOF do
  begin
    listbox1.Items.Add(adotable1.Fieldbyname('AccountTypename').AsString );
    adotable1.Next;
  end;

Answer 2

同意楼上的
此外使用for i:=0 to adotable1.recordcount-1 do
        ....
效果一样