begin
query1.close;
query1.sql.clear;
query1.sql.add('insert 表2 (字段列表1,字段列表2,...) ');
query1.sql.add(' select 字段列表1,字段列表2,... from 表1 ');
query1.sql.add(' where 表1条件 ');
query1.execsql;
end;
query1.close;
query1.sql.clear;
query1.sql.add('insert 表2 (字段列表1,字段列表2,...) ');
query1.sql.add(' select 字段列表1,字段列表2,... from 表1 ');
query1.sql.add(' where 表1条件 ');
query1.execsql;
end;
query1.sql.add('insert into 表2 (字段列表1,字段列表2,...) ');
你需要两个ado或table,并保证查询出的表的格式与提交的数据库表的格式一样。再把数据写入就行。
比较笨的方法是用sql.
看看sql的教程就行了