请大家帮我写段程序，感激万分.(50分)

感谢。我的意思没表达清：请大家帮我写一段程序。速度要快:
delphi7 database数据库
table1与table2结构相同.
把table2中最新记录加到table1中。
字段kh相同的记录把字段jf更新.

query1.close;
query1.sql.text:='update table1 set jf=jf from table2 where table1.kh=table2.kh
query1.execsql;
这样应该可以吧　。

不明白你在说些什么，

请大家帮我写一段程序。速度要快:delphi7 database数据库 table1与table2结构相同.
要求:把table2中最新记录加到table1中。
字段kh相同的记录把table2的字段jf更新到table1中

ZYWCd 那样子写挺好的啊!

要求:把table2中最新记录加到table1中。
-------------
你的最新记录是以什么来标记为最新呢呀？

zywcd的应该能实现吧

var i : integer;
begin
adoquery2.Connection :=dm.ADOCo;
adoquery2.Close;
adoquery2.SQL.Clear;

for i := 0 to dbgrid1.Columns.Count -1 do
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert into xunyu values N0,:N1,:N2,:N3,:N4,:N5,:N6,:N7,:N8,:N9,:N10,:N11,:N12,:N13,:N14,:N15,:N16,:N17,:N18,:N19,:N20,:N21,:N22,:N23)');
adoquery2.Parameters[0].Value:=adoquery1.fieldbyname('hm').AsString ;
adoquery2.Parameters[1].Value:=adoquery1.fieldbyname('yhlx').AsString ;
adoquery2.Parameters[2].Value:=adoquery1.fieldbyname('bm').AsString;
adoquery2.Parameters[3].Value:=adoquery1.fieldbyname('dz').AsString;
adoquery2.Parameters[4].Value:=adoquery1.fieldbyname('yslx').AsString;
adoquery2.Parameters[5].Value:=adoquery1.fieldbyname('sj').AsString ;
adoquery2.Parameters[6].Value:=adoquery1.fieldbyname('scjzyf').AsDateTime ;
adoquery2.Parameters[7].Value:=adoquery1.fieldbyname('jfje').AsFloat;
adoquery2.Parameters[8].Value:=adoquery1.fieldbyname('scjfrq').AsString;
adoquery2.Parameters[9].Value:=adoquery1.fieldbyname('jzfy')..AsDateTime;
adoquery2.Parameters[10].Value:=adoquery1.fieldbyname('jfrq').AsString ;
adoquery2.Parameters[11].Value:=adoquery1.fieldbyname('bz').AsString ;
adoquery2.Parameters[12].Value:=adoquery1.fieldbyname('bzw').AsString;
adoquery2.Parameters[13].Value:=adoquery1.fieldbyname('scxz').AsFloat;
adoquery2.Parameters[14].Value:=adoquery1.fieldbyname('bcxz').AsFloat;
adoquery2.Parameters[15].Value:=adoquery1.fieldbyname('byyl').AsFloat;
adoquery2.Parameters[16].Value:=adoquery1.fieldbyname('scjfrq_yb').AsString ;
adoquery2.Parameters[17].Value:=adoquery1.fieldbyname('jfrq_yb).AsString;
adoquery2.Parameters[18].Value:=adoquery1.fieldbyname('bz_yb').AsFloat;
adoquery2.Parameters[19].Value:=adoquery1.fieldbyname('bz_vb').AsString;
adoquery2.Parameters[20].Value:=adoquery1.fieldbyname('cbbz').AsString ;
adoquery2.Parameters[21].Value:=adoquery1.fieldbyname('qf').AsFloat ;
adoquery2.Parameters[22].Value:=adoquery1.fieldbyname('qbm').AsString;
adoquery2.Parameters[23].Value:=adoquery1.fieldbyname('pdbz').asString;
inc(i);
adoquery2.Prepared ;
adoquery2.ExecSQL;
adoquery1.Next;
end;
end;
adoquery1.Refresh;
end;