table向table中写数据

Question

我有两个表，需用要一个表向另一个表写数据全部写出入！ table1.open;
  table1.append;
  table2.edit;
  if not table2.eof then
  begin
  edit3.text:=table2.fieldbyname('book_num').asstring;
  table1.fieldbyname('book_num').asstring:=table2.fieldbyname('book_num').asstring;
  table1.fieldbyname('book_name').asstring:=table2.fieldbyname('book_name').asstring;
  table1.fieldbyname('book_price').ascurrency:=table2.fieldbyname('book_price').ascurrency;
  table1.post;
请大家看一下如何将table2向table2中数据全部写出入。请大家说一下能否将
sql    table 写出一下。

Answer 1

table2.first;
while not table2.eof do
 begin
   table1.append;
   table1.fieldbyname('xx').text:=table2.fieldbyname('xx').text;
   table2.next;
 end;