procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
I,j: Integer;
begin
table1.First;
i:=table1.fieldcount;
while not table1.eof do
begin
if length(table1.FieldByName('id').AsString)=6 then
begin
table2.Append;
for j := 0 to i-1 do // Iterate
begin
table2.Fields[j].Value:=table1.Fields[j].Value;
end; // for
end;
Table1.Next;
datasource1.DataSet:=table2;
table2.Active:=true;
end; // while
end;
给一段代码!