procedure table2totalbe1 ;
begin
with table2 do
begin
open;
table1.close;
table1.emptytable;
table1.open;
table1.append;
while not eof do
begin
fieldbyname('t1').asstring:=table1.fieldbyname('t1').asstring;
fieldbyname('t2').asstring:=table1.fieldbyname('t2').asstring;
fieldbyname('t3').asstring:=table1.fieldbyname('t3').asstring;
fieldbyname('t4').asstring:=table1.fieldbyname('t4').asstring;
next;
table1.append;
end;
end;end;
begin
with table2 do
begin
open;
table1.close;
table1.emptytable;
table1.open;
table1.append;
while not eof do
begin
fieldbyname('t1').asstring:=table1.fieldbyname('t1').asstring;
fieldbyname('t2').asstring:=table1.fieldbyname('t2').asstring;
fieldbyname('t3').asstring:=table1.fieldbyname('t3').asstring;
fieldbyname('t4').asstring:=table1.fieldbyname('t4').asstring;
next;
table1.append;
end;
end;end;
用batchmove有一个maping什么的TSTRING型的属性,
在其中设置动态建立的表的字段名及数据来源字段名,
例:
for i:=0 to table1.fields.count
batchmove1.maping.lines.add(table1.fields[i].fieldname+'='+table1.fields[i].fieldname)当然,上面的方案是源表和目标表的字段是一样的
可稍加修改,我很长时间没用DELPHI做程序了,
不知道语法对不对,请包涵