FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
FindNext que da error
Hola a todos,
En mi aplicacion necesito filtrar un grupo de registros dentro de una tabla a través de su código, utilizo para éllo el método Filter. Una vez filtrado voy avanzando el grupo de registros resultante hasta llegar al final y salir del bucle. Mi problema es que al hacer el ultimo FindNext me da error diciendo que no puede ejecutar ésta funcion porque se encuentra al final del grupo de registros, y no entiendo el porque. Aqui teneis mi código: ADOTabla.Filtered := False; ADOTabla.Filter := 'codart = ' + QuotedStr(Codigo); ADOTabla.Filtered := True; ADOTabla.FindFirst; while (not ADOTabla.Eof) do begin // AQUI HAGO ACUMULO DATOS ADOTaulaCompres.FindNext; end; Gracias por adelantado. |
#2
|
||||
|
||||
Prueba esto a ver si te funciona:
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Sigue sin funcionar
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? |
#4
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|