FUNCTION limpiartextbox()
DIM f AS Form
DIM ctl AS Object
f = ME
FOR EACH ctl IN f.Controls
IF ctl IS TextBox THEN
IF ctl.Name <> "codficha" THEN ctl.text = "" >>>> Aquí se produce el error
ENDIF
NEXT
END
DIM f AS Form
DIM ctl AS Object
f = ME
FOR EACH ctl IN f.Controls
IF ctl IS TextBox THEN
IF ctl.Name <> "codficha" THEN ctl.text = "" >>>> Aquí se produce el error
ENDIF
NEXT
END
El mensaje de error es : valuebox.text is readonly
Me gustaría saber que estoy haciendo mal.
Estoy usando el componente gb.gtk
saludos y gracias por anticipado