把60多个表放在ini文件中,程序读出,一个循环赋值好了。反正你字段名,结构都一样,可以这样 while not table1.Eof do begin table2.Insert; for i := 0 to table1.FieldCount - 1 do table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName]; table2.Post; end;
while not table1.Eof do begin table2.Insert; for i := 0 to table1.FieldCount - 1 do table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName]; table2.Post; end;
唉,写C#得foreach习惯了,都忘记了table1.Next了,这样会是死循环得,没想到,抄都不动一下脑筋得。 while not table1.Eof do begin table2.Insert; for i := 0 to table1.FieldCount - 1 do table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName]; table2.Post; table1.Next; end;
while not table1.Eof do
begin
table2.Insert;
for i := 0 to table1.FieldCount - 1 do
table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName];
table2.Post;
end;
begin
table2.Insert;
for i := 0 to table1.FieldCount - 1 do
table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName];
table2.Post;
end;
while not table1.Eof do
begin
table2.Insert;
for i := 0 to table1.FieldCount - 1 do
table2[table1.Fields[i].FieldName] := table1[table1.Fields[i].FieldName];
table2.Post;
table1.Next;
end;