Ver Mensaje Individual
  #4  
Antiguo 13-12-2005
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Reputación: 21
AGAG4 Va por buen camino
Resuelto

Use un RxMemorydata como auxiliar del detalle, cuando Inserto,Actualizo y Borro tamibién se pasa en la Tabla RxMemorydata, por lo que realice un ciclo para que me de la posición del Registro

Código Delphi [-]
function DameRecNOMemData(Indice:Integer):String;
var posx:byte;
begin
  with dmFactBabatsa do begin
    memDFac.First;
    posx:=1;
    while (not memDFac.EOF) and 
            (memDFac.FieldByName('INDICE').value <> Indice) do begin
      Inc(Posx);
    memDFac.Next;
    end;
    if posx=0 then
      result:='1'
    else
      result:=IntToStr(Posx);
  end;
end;

Saludos....
Responder Con Cita