幫我寫一個Delphi循環語句,直到Table內的記錄爲空.然後分別求出各個字段的值.另外我要根據各字段的值進行計算,由計算結果update另一個Tab

Question

幫我寫一個Delphi循環語句,從第一條記錄開始,直到Table內的記錄爲空.然後分別求出各個字段的值.另外我要根據各字段的值進行計算,由計算結果update另一個Table.
我是新手,請寫詳細一些.多謝多送.

Answer 1

var
  s1,s2,s3,t:String;
begin
  AdoTable1.First;
  While not AdoTable1.Eof do
  begin
    s1:=AdoTable1.FieldByName('aa').AsString;//字段aa的值
    s2:=AdoTable1.FieldByName('bb').AsString;//字段bb的值
    s3:=AdoTable1.FieldByName('cc').AsString;//字段cc的值
    
    t:=s1+s2+s3;
    AdoTable2.Edit;
    AdoTable2.FieldByName('dd').AsString:=t;//更新字段dd
    AdoTable2.Post;    AdoTable1.Next;
  end;
end;

Answer 2

var
  s1,s2,s3,t:String;
begin
  AdoTable1.First;
  While not AdoTable1.Eof do
  begin
    s1:=AdoTable1.FieldByName('aa').AsString;//字段aa的值
    s2:=AdoTable1.FieldByName('bb').AsString;//字段bb的值
    s3:=AdoTable1.FieldByName('cc').AsString;//字段cc的值
    
    t:=s1+s2+s3;
    AdoTable2定位到要UPDATE的位置!!!!!!!!!!!
    AdoTable2.Edit;
    AdoTable2.FieldByName('dd').AsString:=t;//更新字段dd
    AdoTable2.Post;    AdoTable1.Next;
  end;
end;

Answer 3

不好意思,我用的query語句,用的是BDE,沒有用ADO.請樓上的幫我再改一下.謝謝

Answer 4

var
  s1,s2,s3,t:String;
begin
   Table1.First;
  While not  Table1.Eof do
  begin
    s1:= Table1.FieldByName('aa').AsString;//字段aa的值
    s2:= Table1.FieldByName('bb').AsString;//字段bb的值
    s3:= Table1.FieldByName('cc').AsString;//字段cc的值
    
    t:=s1+s2+s3;
     Table2定位到要UPDATE的位置!!!!!!!!!!!
     Table2.Edit;
     Table2.FieldByName('dd').AsString:=t;//更新字段dd
     Table2.Post;     Table1.Next;
  end;
end;

Answer 5

var
  s1,s2,s3,t:String;
begin
  query1.First;
  While not query1.Eof do
  begin
    s1:=query1.FieldByName('aa').AsString;//字段aa的值
    s2:=query1.FieldByName('bb').AsString;//字段bb的值
    s3:=query1.FieldByName('cc').AsString;//字段cc的值
    
    t:=s1+s2+s3;
    query2定位到要UPDATE的位置!!!!!!!!!!!
    query2.Edit;
    query2.FieldByName('dd').AsString:=t;//更新字段dd
    query2.Post;    query1.Next;
  end;
end;