怪!為何一次只更新條記錄.請高人看一下我的語法.

Question

我的需求是:table中有ccje,sr,zc,jc 第一條記錄只有jc的值是10000,從第二條記錄開始把第一條記錄jc中的10000給ccje,ccje+sr-zc的值給jc,第三條記錄的ccje值又是第二條記錄的jc值.jc值是ccje+sr-zc,就這樣一直循環到最后一條記錄.我是這樣寫的:
procedure TForm1.Button1Click(Sender: TObject);
vari,h,m,j,k,l:integer;beginadoquery1.Close;
 
adoquery1.SQL.Clear;
 
adoquery1.SQL.Add('select * from xj order by tim,id');
 
adoquery1.Open;
adoquery1.First;for i:=0 to adoquery1.RecordCount -1 dobegin
  adoquery1.Next;
  if not adoquery1.Eof then
      begin
       l:= adoquery1.FieldByName('id').AsInteger;
       j:=adoquery1.FieldByName('sr').AsInteger;
       k:=adoquery1.fieldbyname('zc').AsInteger;
      end;
    adoquery1.Prior;  adoquery2.close;  adoquery2.sql.clear;  adoquery2.sql.add('update xj set ccje=:a,jc=:b'  );
  adoquery2.SQL.Add(' where id='+INTTOSTR(l));  adoquery2.Parameters.ParamByName('a').Value:=adoquery1.FieldByName('jc').AsInteger;
  adoquery2.Parameters.ParamByName('b').Value:=adoquery1.FieldByName('jc').AsInteger +j-k;
  adoquery2.ExecSQL;  adoquery1.next;  end;
end;
               請高人指點錯在哪?
 也可把email告訴我我把delphi+access2000的給他.

Answer 1

大哥,幫我一下,誰幫我解決這個問題我請他吃飯,我的msn是[email protected]交個朋友,

Answer 2

大概是因为你的ADOQUERY1表的数据还在内存中的原因吧。
没有即时刷新到数据。
所以你的循环可能只运行了1次。也就只产生一个记录更新。

Answer 3

adoquery1.RecordCount 有时返回的有错。
你把for循环改用
while not adoquery1.eof do 
begin
....
end；
adoquery1.update;试试看。