javier
30 de Junio del 2004

tengo un boton agregar en mi forma el problema es que cuando lo presiono no borra los campos, el codigo que estoy utilizando es el siguiente:

thisform.Cmbresp.enabled=.t.
thisform.Cmbact.enabled=.t.
thisform.txtcom.enabled=.t.
thisform.Cmbstat.enabled=.t.
thisform.Cmbprior.enabled=.t.
thisform.txtini.enabled=.t.
thisform.txtlim.enabled=.t.
thisform.txtfin.enabled=.t.
thisform.optiongroup1.enabled=.t.
go bottom
thisform.refresh
append blank
thisform.refresh
thisform.Cmbresp.setfocus
thisform.refresh

Ojala y me puedan ayudar, Gracias.

Dolf
30 de Junio del 2004

Hola que tal, yo soy algo novato con el fox, pero te intentare ayudar.
Yo cuando quiero agregar nuevos datos lo hago asi:
la tabla que tengas creada yo la llamare nombretabla, despues creo una matriz (donde formulario ->nueva propiedad) llamada reg_nombretabla(1)
enlazas los txt y los dbo por la propiedad controlsource con la matriz, poniendo esto "thisform.reg_nombretabla(1)" (esto para el primer campo el segundo sera reg_nombretabla(2) y asi sucesivamente)
y despues agrego dos botones, esto lo hago para dar la opcion de cancelar, pero que se puede hacer con uno vamos, uno lo llamo cmdnuevo y el otro cmdaceptar, el caption del primero es nuevo y el del segundo aceptar, digo esto por que despues juego un poco con los caption, el codigo de cmdnuevo es el siguiente:
if thisform.caption = "cancelar"
scatter to thisform.reg_nombretabla
thisform.refresh
thisform.cmdnuevo.caption= "nuevo"
else
scatter to thisform.reg_nombretabla blank
thisform.refresh
thisform.cmdnuevo.caption= "cancelar"
endif

y el de cmdaceptar:

insert into proveedores from array thisform.reg_nombretabla
thisform.refresh
thisform.cmdnuevo.caption="nuevo"

espero haberte ayudado

Dolf
30 de Junio del 2004

un despiste, donde puse insert into proveedores ...
en vez de proveedores quise decir nombretabla, es que mi tabla se llama asi.
bueno si te sirvio me dices. bye

Alex
30 de Junio del 2004

¿C贸mo est谩n amigos?

Tu c贸digo est谩 correcto, no tendr铆a por que no limpiar los datos de los objetos.

Pregunta.
¿Tenes escrito algon en el Refresh del Form?


Alex Vargas

Erick Forez Orozco
30 de Junio del 2004

Debes limpiar la variable de memoria con scatter memvar blank esto libera las var de memoria y al tiempo los ciuadros de textos enlazados a ellos.

ARACELI
30 de Junio del 2004

ESTOY EN CLASE Y NECESITO HACER FUNCIONAR LOS SIGUIENTES BOTONES DEL FORMULARIO CLIENTES:
PAGOS
ELIMINAR
MODIFICAR
NUEVO
BUSCAR
AGREGAR
CANCELAR

GABRIEL
30 de Junio del 2004

hola, como estas?, lo que yo te recomiendo es utilizar el c贸digo para reemplazar en la tabla, por ejemplo:

replace nombredecampo with thisform.txtnombre.value
esto es para que puedas guardarlo en la tabla. y debes deshabilitar la propiedad de controlsource.

por que pienso que con el c贸digo que tiene tienes activa la propiedad de controlsource. para cada cuadro de texto que tengas.

despues de utilizar todos los replace que necesites escribes:
thisform.Cmbresp.value=""
thisform.Cmbact.value=""
thisform.txtcom.value=""
thisform.Cmbstat.value=""
thisform.Cmbprior.value=""
thisform.txtini.value=""
thisform.txtlim.value=""
thisform.txtfin.value=""
claro si son numericos es con 0 en lugar de ""
espero y te sirva de algo, me avisas si te sirvio, y si no te env铆o un c贸digo para que puedas agregar....