Ver Mensaje Individual
  #2  
Antiguo 18-11-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Wink

Se puede hacer de 2 maneras.
Primera:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var p:TBookmark;
begin
   try
    ClientDataSet1.DisableControls;
      p:=ClientDataSet1.GetBookmark;// creo un puntero apuntando al registro actual del DataSet
         //Hago lo que sea con el clientDataset
         //Me muevo para adelante o para atras, etc.
      ClientDataSet1.GotoBookmark(p);//hago volver al registro donde estaba antes
   finally
      ClientDataSet1.FreeBookmark(p);//libero el objeto p
     ClientDataSet1.EnableControls;
   end;
end;
Segunda:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var Fila_Actual:Integer;
begin
    Fila_Actual:=ClientDataSet1.RecNo;
    ClientDataSet1.DisableControls;
         //Hago lo que sea con el clientDataset
         //Me muevo para adelante o para atras, etc.
    ClientDataSet1.RecNo:=Fila_Actual;//vuelvo al registro donde estaba inicialmente 
    ClientDataSet1.EnableControls;
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita