Botón cancelar

Espero poder ayudarte
Mi concejo es que no trabajes en las tablas hasta que no se confirma la acción..
Lo ideal seria que cuando el usuario toca el botón "nuevo" pongas los textbox en blanco sin hacer nada.. para esto la propiedad controlSource de los controles tiene que estar vacía y vos trabajarías por medio de la propiedad value. Así:
Botón Nuevo
with thisform
.codigo.value=''
.descrip.value=''
.precio.value=0
endwith
Si toca "cancelar" lo que hacemos es traer los datos del ultimo registro
sele miTabla
go botton
with thisform
.codigo.value=miTabla.codigo
.descrip.value=miTabla.descrip
.precio.value=miTabla.precio
endwith
Si toca "grabar" o "aceptar" haces
sele miTabla
append blank
if rlock() &&para multiusuario
replace codigo with thisform.codigo.value
replace descrip with thisform.descrip.value
replace precio with thisform.precio.value
unlock
flush
endif
Bueno, espero haberte ayudado y si es así.. espero tu calificación y que cierres la pregunta..
Cualquier cosa estoy a tu disposición..
Keystone - Christian
www.keystone.com.ar

Buenas tardes experto con respecto al código estas son mis consultas, el código del botón nuevo funcionó a la perfección mientras hubo registros en la tabla, probé eliminado todos los registros de la tabla y al pulsar el botón nuevo no se limpian las cajas y tampocon se activan las cajas para ingresar datos a pesar que tengo un método para activar cajas de texto.
El botón nuevo tiene un método limpia para blanquear los campos y un método activa para activar las cajas de texto.
El botón cancelar si bien es cierto regresa al ultimo registro pero ese ultimo registro lo deja en blanco y en este botón también hay un método.
Botón nuevo
Thisform. Limpia
Thisform. Activa
Thisform.refresh
Método limpia
thisform.txtFecha_emision.value={ / / }
thisform.txtFecha_venci.value={ / / }
thisform.txtNro.value=""
...
...
metodo activa
thisform.txtFecha_emision.Enabled=.t.
thisform.txtfecha_emision.SetFocus
thisform.txtFecha_venci.enabled=.t.
thisform.txtNro.Enabled=.t.
...
...
Botón cancelar
Thisform.traerdatos
Método traerdatos
SELECT reg_compras
GO bott
thisform.txtFecha_emision.value=reg_compras.fecha_emision
thisform.txtFecha_venci.value=reg_compras.fecha_venci
thisform.txtNro.value=reg_compras.nro
...
...