Hola Ignacio, puede probar la clausula delete
de tdbfdataset,
en el programa que tento en la 13b funciona bien
pero en la 13c, se queda en el mismo registro siempre
los puedes comprobar.
Gracias
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
DELETE FUNCIONA MAL 13C
-
jrcpoli-quitar
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
DELETE FUNCIONA MAL 13C
PILO ve a la ayuda de Xailer y fíjate como funciona el delete para
borrar registros hay un ejemplo y te puedo asegurar que sí funciona.
** Buscar los registro para borrar en el fichero Individual
buscador := DTOS(dFecha) + Upper(cLugar) + cClub
WITH OBJECT ::oDbfIndividual
:SaveState( .T. )
:GoTop()
DO WHILE :Seek(buscador)
*
:Delete()
*
END DO
:RestoreState( .T. )
END WITH
El problema es que si empleas un bucle While el delete hace ya un Skip
el solo.
José Ramón Castro.
PILO escribió:
> Hola Ignacio, puede probar la clausula delete
> de tdbfdataset,
> en el programa que tento en la 13b funciona bien
> pero en la 13c, se queda en el mismo registro siempre
> los puedes comprobar.
> Gracias
>
>
borrar registros hay un ejemplo y te puedo asegurar que sí funciona.
** Buscar los registro para borrar en el fichero Individual
buscador := DTOS(dFecha) + Upper(cLugar) + cClub
WITH OBJECT ::oDbfIndividual
:SaveState( .T. )
:GoTop()
DO WHILE :Seek(buscador)
*
:Delete()
*
END DO
:RestoreState( .T. )
END WITH
El problema es que si empleas un bucle While el delete hace ya un Skip
el solo.
José Ramón Castro.
PILO escribió:
> Hola Ignacio, puede probar la clausula delete
> de tdbfdataset,
> en el programa que tento en la 13b funciona bien
> pero en la 13c, se queda en el mismo registro siempre
> los puedes comprobar.
> Gracias
>
>
DELETE FUNCIONA MAL 13C
Ramón, eso es lo que hago, pero ahora me esta funcionando bien
algunas veces, tengo que poner :ship() para que funcione,
y no se por que es
Se puede decir que ya funciona bien
algunas veces, tengo que poner :ship() para que funcione,
y no se por que es
Se puede decir que ya funciona bien