怎么样使table1中a1字段的值替换成table2中a2的值，代码怎么写？

Question

从第一条到最后一条记录依次替换，如何实现？

Answer 1

while (not adoquery1.eof) and (not adoquery2.eof) do
begin
adoquery1.fieldbyname('a1').value:=adoquery2.fieldbyname('a2').value;
adoquery1.next;
adoquery2.next;
end;

Answer 2

adoquery1.first;
adoquery2.first;
while (not adoquery1.eof) or (not adoquery2.eof) do
begin
   adoquery1.fieldbyname('a1').value:=adoquery2.fieldbyname('a2').value;
   adoquery1.next;
   adoquery2.next;
end;

Answer 3

adoquery1.fieldbyname('a1').value:=adoquery2.fieldvalue('a2');

Answer 4

with adoquery1 do
begin
  close;
  sql.clear;
  sql.text := 'update table1 set a1 = '+
                 '(select a2 from table1,table2 where table1.a3 = table2.a3)';
  execsql;
end;

Answer 5

同意楼上说法
用adoquery.sql='update...'可以实现