FoxPro/Visual FoxPro - elimina datos pero no actualiza la tabla

 
Vista:
sin imagen de perfil

elimina datos pero no actualiza la tabla

Publicado por andrey (5 intervenciones) el 28/10/2022 16:46:03
Este es el código para el botón de borrar

SET DELETED ON

IF Messagebox( "Estás seguro?", 4 ) = 6
DELETE
ThisForm.txt
ThisForm.Refresh
ENDIF

este es el codigo del metodo txt

USE clientes IN 0 alias customers1
use clientes IN 0 again alias customers2
use clientes IN 0 again alias customers3
use clientes IN 0 again alias customers4

SELECT customers1
SET RELATION TO ;
RECNO()+1 INTO customers2, ;
RECNO()+2 INTO customers3, ;
RECNO()+3 INTO customers4 IN customers1


thisform.TxtNomCli1.ControlSource="customers1.nombre"
thisform.TxtIdent1.ControlSource="customers1.identifica"
thisform.TxtDirec1.ControlSource="customers1.direccion"
thisform.TxtTele1.ControlSource="customers1.telefono"
ThisForm.Refresh

thisform.TxtNomCli2.ControlSource="customers2.nombre"
thisform.TxtIdent2.ControlSource="customers2.identifica"
thisform.TxtDirec2.ControlSource="customers2.direccion"
thisform.TxtTele2.ControlSource="customers2.telefono"
ThisForm.Refresh

thisform.TxtNomCli3.ControlSource="customers3.nombre"
thisform.TxtIdent3.ControlSource="customers3.identifica"
thisform.TxtDirec3.ControlSource="customers3.direccion"
thisform.TxtTele3.ControlSource="customers3.telefono"
ThisForm.Refresh

thisform.TxtNomCli4.ControlSource="customers4.nombre"
thisform.TxtIdent4.ControlSource="customers4.identifica"
thisform.TxtDirec4.ControlSource="customers4.direccion"
thisform.TxtTele4.ControlSource="customers4.telefono"
ThisForm.Refresh

este es el codigo del metodo release

SELECT clientes
PACK

estoy usando ThisForm.Refresh para actualizar la forma y pack en la base de datos que necesito borrar los datos, cuando cierro y vuelvo a abrir. aparecen los datos iguales como si no se hubiera eliminado nada
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder