| 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 | |
| Respuesta: | jose perez |
| pack seguido del comando delete, el pack elimina los registros marcados como eliminados por el comando delete..... | |