تحويل تسجيل من جدول الى جدول اخر

[kachwahed]

السلام عليكم ورحمة الله
مبدئيا:

كود :

procedure ImportDataSet(dsSource, dsDest: TDataSet); var I: Integer; begin dsSource.DisableControls; dsDest.DisableControls; try dsSource.First; while not dsSource.Eof do begin dsDest.Append; for I := 0 to dsSource.FieldCount-1 do dsDest.FieldByName(dsSource.Fields[I].FieldName).Value := dsSource.Fields[I].Value; dsSource.Next; end; if dsDest.State in [dsEdit, dsInsert] then dsDest.Post; finally dsSource.EnableControls; dsDest.EnableControls; end; end;

قم بمحاولة ونصححها