Spalten kopieren

[Stevie]

Oder so:

Delphi-Quellcode:

while not QuellQuery.Eof do
begin
  if ZielDataSet.Locate('ID', QuellQuery.FieldValues['ID'], []) then
    ZielDataSet.Edit
  else
  begin
    ZielDataSet.Append;
    ZielDataSet.FieldByName('ID').AsString := QuellQuery.FieldByName('ID').AsString;
  end;
  ZielDataSet.FieldByName('Spalte5').AsString := QuellQuery.FieldByName('Spalte5').AsString;
  ZielDataSet.Post;
  QuellQuery.Next;
end;