FindNext que da error

[marcoszorrilla]

Prueba esto a ver si te funciona:

Código Delphi [-]
 ADOTabla.Filtered := False;
 ADOTabla.Filter := 'codart = ' + QuotedStr(Codigo);
 ADOTabla.Filtered := True;
 ADOTabla.FindFirst;
 while (

Código Delphi [-]
    ADOTaulaCompres.FindNext;) do
   begin  
      // AQUI HAGO ACUMULO DATOS
  
   end;
 

Un Saludo.

[Tecnic2]

Me da el error igual.
Dos apuntes:
1- El error es: "Record not found".
Cosa lógica porque no hay ninguno mas.
2- El codigo tiene que ser: ADOTabla.FindNext, y no ADOTaulaCompres.

Alguna sugeencia mas?

[marcoszorrilla]

El error es típico de los componentes ADO, si ya tienes una clave única definida, piensa en descargarte la versión correspondiente de las MDAC.

Un Saludo.