Cita:
Empezado por marcoszorrilla
Por qué no nos pones el código con el que haces estos barridos ya que con el número de registros que indicas no hay motivo para que sea tan lento.
Un Saludo.
|
Marcos
Este es el codigo que uso pero no se si este bien a lo mejor lo hago muy rustico, pero la verdad no se muy bien programar
DM3.TClientesADM.DisableControls;
DM3.TClientesADM.Open;
DM3.TClientesADM.first;
While not DM3.TClientesADM.Eof do begin
DM3.TClientesADM.delete;
end;
DM3.TClientesADM.DisableControls;
DM3.TClientesADM.First;
while not DM3.CBTableSet5.eof do
begin
DM3.CBTableSet5.DisableControls;
DM3.CBTableSet5.first;
WHILE NOT DM3.CBTableSet5.Eof DO BEGIN
DM3.TClientesADM.append;
DM3.TClientesADMCIDCLIEN01.AsInteger:=DM3.CBTableSet5CIDCLIEN01.asinteger;
DM3.TClientesADMCCODIGOC01.AsString:= DM3.CBTableSet5CCODIGOC01.AsString;
DM3.TClientesADMCRAZONSO01.AsString:= DM3.CBTableSet5CRAZONSO01.AsString;
DM3.TClientesADMCRFC.AsString:= DM3.CBTableSet5CRFC.AsString;
VcodigoCli:= DM3.TClientesADMCIDCLIEN01.Asinteger;
DM3.CBTableSet6.open;
DM3.CBTableSet6.DisableControls;
DM3.CBTableSet6.First;
While not DM3.CBTableSet6.eof do Begin
VCodigoCli1:= DM3.CBTableSet6CIDCATAL01.Asinteger;
IF Vcodigocli = VcodigoCli1 then
DM3.TClientesADMCDIRECCION.AsString:= DM3.CBTableSet6CNOMBREC01.AsString + ' '+ 'No.'+' '+ DM3.CBTableSet6CNUMEROE01.AsString + ' '+ 'Col.'+' '+ DM3.CBTableSet6CCOLONIA.Asstring;
DM3.TClientesADMCPAIS.AsString:= DM3.CBTableSet6CPAIS.Asstring;
DM3.TClientesADMCESTADO.AsString:= DM3.CBTableSet6CESTADO.Asstring;
DM3.TClientesADMCCIUDAD.AsString:= DM3.CBTableSet6CCIUDAD.Asstring;
DM3.CBTableSet6.next;
End;
DM3.TClientesADM.post;
DM3.CBTableSet5.next;
FMenu.ProgressBar1.StepIt;
end;
FMenu.ProgressBar1.Position := 0;
end;
END;
Espero me puedas ayudar por favor