Actualizar un dataset desde otro dataset

[jafera]

Así es como lo he dejado, pero sigue tardando mucho tiempo, en una aplicacion que usa acces como base de datos este proceso es muy rápido. Yo ya casi que tiro la toalla. Delphius me dice que si uso indices, no se exactamente a que se refiere, campo llave?, si es así es el DNI

 
procedure TF_Actualitza.BitBtn1Click(Sender: TObject);
var i:integer;
begin
        If RadioGroup1.ItemIndex=0 then
        begin
                F_Confirmacio := TF_Confirmacio.Create(self);
                F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
                F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
                F_Confirmacio.Label3.Caption:= 'Estas segur?';
                try
                If F_Confirmacio.ShowModal = mrok then
                begin
                        F_ModulDades.MasterE.Close;
                        F_ModulDades.MasterE.Open;
                        F_ModulDades.Master.Close;
                        F_ModulDades.Master.Open;
                        F_ModulDades.MasterE.Last;
                        Progressbar1.Max := F_ModulDades.MasterE.RecordCount;
                        F_ModulDades.MasterE.First;                  
                        While not F_ModulDades.MasterE.Eof do
                        begin
                         F_ModulDades.Master.Close;
                                F_ModulDades.Master.SelectSQL.Text:='SELECT COUNT DNI FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
                                F_ModulDades.Master.Open;
                                If F_ModulDades.Master.RecordCount>0 then
                                begin
                                 F_ModulDades.Master.Edit;
                                 F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
                                        F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
                                        F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterE.Next;
                                end
                         else
                         begin
                                        F_ModulDades.Master.Last;
                          i:=F_ModulDades.MasterID_CORREDOR.Value+1;
                                 F_ModulDades.Master.Append;
                                 F_ModulDades.MasterID_CORREDOR.Value:=i;
                          F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterEC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterEC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterEC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=F_ModulDades.MasterEC8.Value;
                                        F_ModulDades.MasterNACIO.Value:=F_ModulDades.MasterEC9.Value;
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterEC10.Value;
                                        F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterEC11.Value;
                                        F_ModulDades.MasterCODIUCI.Value:=F_ModulDades.MasterEC12.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterEC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterEC15.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterE.Next;
                                end;
                                Progressbar1.Position := F_ModulDades.MasterE.RecNo;
                        end;
                end;
                finally
                        F_Confirmacio.Free;
                end;
                ShowMessage('Procés finalitzat');
        end
        else
        If RadioGroup1.ItemIndex=1 then
        begin
                F_Confirmacio := TF_Confirmacio.Create(self);
                F_Confirmacio.Label1.Caption:= 'Aquesta acció actualitzarà el Master';
                F_Confirmacio.Label2.Caption:= 'general amb les noves dades';
                F_Confirmacio.Label3.Caption:= 'Estas segur?';
                try
                If F_Confirmacio.ShowModal = mrok then
                begin
                        F_ModulDades.MasterC.Close;
                        F_ModulDades.MasterC.Open;
                        F_ModulDades.Master.Close;
                        F_ModulDades.Master.Open;
                        F_ModulDades.MasterC.Last;
                        Progressbar1.Max := F_ModulDades.MasterC.RecordCount;
                        F_ModulDades.MasterC.First;
                        While not F_ModulDades.MasterC.Eof do
                        begin
                                F_ModulDades.Master.Close;
                                F_ModulDades.Master.SelectSQL.Text:='SELECT * FROM CU0001 WHERE DNI='+QuotedStr(F_ModulDades.MasterEC11.Value);
                                F_ModulDades.Master.Open;
                                If F_ModulDades.Master.RecordCount>0 then
                                begin
                                 F_ModulDades.Master.Edit;
                                 F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterCC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterC.Next;
                                end
                         else
                         begin
                                        F_ModulDades.Master.Last;
                          i:=F_ModulDades.MasterID_CORREDOR.Value+1;
                                 F_ModulDades.Master.Append;
                                        F_ModulDades.MasterID_CORREDOR.Value:=i;
                                        F_ModulDades.MasterNOM.Value:=F_ModulDades.MasterCC5.Value;
                                        F_ModulDades.MasterCOGNOM1.Value:=F_ModulDades.MasterCC6.Value;
                                        F_ModulDades.MasterCOGNOM2.Value:=F_ModulDades.MasterCC7.Value;
                                        F_ModulDades.MasterCODI_CAT.Value:=StrToInt(F_ModulDades.MasterCC10.Value);
                                        F_ModulDades.MasterLLICENCIA.Value:=F_ModulDades.MasterCC11.Value;
                                        F_ModulDades.MasterDNI.Value:=F_ModulDades.MasterCC12.Value;
                                        F_ModulDades.MasterCLUB.Value:=F_ModulDades.MasterCC13.Value;
                                        F_ModulDades.MasterPUBLICITAT.Value:=F_ModulDades.MasterCC14.Value;
                                        F_Moduldades.Master.Post;
                                        F_ModulDades.MasterC.Next;
                                end;
                                Progressbar1.Position := F_ModulDades.MasterC.RecNo;
                        end;
                end;
                finally
                        F_Confirmacio.Free;
                end;
                ShowMessage('Procés finalitzat');
        end;
end;

Gracias a todos a ver si alguien tiene una bombilla que luzca más que la mia, creo que se me ha fundido de tanto pensar.

Josep