RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  57943 - LIMPIAR REGISTRO EN VISUAL FOX 6.0
Autor:  Emigdio Aguero
hola a todos, tengo un problemita como elimino registros en una tabla estoy trabajando con el vsual fox 6.0, esto es el algoritque que lo e colocado

RESP=MESSAGEBOX("ELIMINAR LA FICHA?",36+256,"ADVERTENCIA")
DO CASE
CASE RESP=6
SELECT ficha
IF !RLOCK()
WAIT WIND"REGISTRO EN USO..."
=TABLEREVERT(.T.)
ELSE
SELECT ficha
DELETE
ACTUALIZA=TABLEUPDATE(1,.T.)
IF NOT ACTUALIZA
MESSAGEBOX(" **** La tabla contiene datos relacionados ****")
=tablerevert(.t.)
else
messagebox(" **** Los datos se han eliminado ****")
GO TOP
THISFORM.REFRESH
endif
endif
case resp=7
endcase
thisform.refresh

eso lo tengo en el evento click de boton eliminar

espero que me ayuden, desde ya muchas gracias


Nombre
Apellidos
Correo
Comentarios