求教关ADOQUERY控件与SQL的问题。

Question

adoquery5.Open;
     adoquery5.First;
     while not adoquery5.Eof do
     begin
        if adoquery5.FieldValues['单据编号']=wb1.Text then adoquery5.Delete;
        adoquery5.Next;
     end;
执行这段语句后，总是无法把SQL库为单据编号＝WB1的记录删除完。

Answer 1

adoquery5.Open;
    adoquery5.First;
    while not adoquery5.Eof do
    begin
       if adoquery5.FieldValues['单据编号']=wb1.Text then adoquery5.Delete;
         adoquery5.Next;//删除了就不需要next了
    end;改为：
    adoquery5.Open;
    adoquery5.First;
    while not adoquery5.Eof do
    begin
       if adoquery5.FieldValues['单据编号']=wb1.Text then 
         adoquery5.Delete
       else
         adoquery5.Next;
    end;