Limpiar cuadros de textos en visual fox
¿Hola cómo estas? Mi consulta es la siguiente tengo un conjunto de cuadros de textos que su values es carácter y tengo otro conjunto que son numéricos dentro de un msmo formulario. Lo que quiero hacer es lo siguiente, en el mismo formulario apretando un command butoon quiero limpiar los cuadros de textos aquellos que son carácter y aquellos que son numéricos.
Muchas gracias y espero tu respuesta..
Muchas gracias y espero tu respuesta..
1 respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
Puedes usar en tu formulario
a los textbox numericos colocales como name Num_01; Num_02; etc
a los textbox alfanumericos colocales como name Tex_01; Tex_02; etc
En el evento click del CommandButton coloca
x=This.Parent.ControlCount
FOR y=1 TO x
IF SUBSTR(This.Parent.Objects(y).name,1,3)="Num"
This.Parent.Objects(y).value=0
ELSE
IF SUBSTR(This.Parent.Objects(y).name,1,3)="Tex"
This.Parent.Objects(y).value=SPACE(10)
Endif
Endif
Endfor
This.Parent.Refresh
a los textbox numericos colocales como name Num_01; Num_02; etc
a los textbox alfanumericos colocales como name Tex_01; Tex_02; etc
En el evento click del CommandButton coloca
x=This.Parent.ControlCount
FOR y=1 TO x
IF SUBSTR(This.Parent.Objects(y).name,1,3)="Num"
This.Parent.Objects(y).value=0
ELSE
IF SUBSTR(This.Parent.Objects(y).name,1,3)="Tex"
This.Parent.Objects(y).value=SPACE(10)
Endif
Endif
Endfor
This.Parent.Refresh
