Me ayudas con un optiongroup! En fox

Hola ..decidi en vez de un container o un marco de pagina usar un option group para cada busqueda q incluye un grupo de controles. Pero no me funciona y es q no me acuerdo la sintaxis, cuando ejecuto y le doy click a las opciones, se me monta todos los controles unos encimas de otros; no desaparecen al seleccionar otra opción..el código es el siguiente ..lo tengo en un metodo TipoBusqueda()en form1
if thisform.optiongroup1.value=1 then
if thisform.optiongroup1.option1.value=1 then
thisform.label4.visible=.T.
thisform.label18.visible=.T.
thisform.label5.visible=.T.
thisform.label6.visible=.T.
thisform.label7.visible=.T.
thisform.text4.visible=.T.
thisform.text3.visible=.T.
thisform.text2.visible=.T.
thisform.edit1.visible=.T.
thisform.command2.visible=.T.
else
thisform.label4.visible=.F.
thisform.label18.visible=.F.
thisform.label5.visible=.F.
thisform.label6.visible=.F.
thisform.label7.visible=.F.
thisform.text4.visible=.F.
thisform.text3.visible=.F.
thisform.text2.visible=.F.
thisform.edit1.visible=.F.
thisform.command2.visible=.F.
endif
if thisform.optiongroup1.option2.value=1 then
thisform.label8.visible=.T.
thisform.label9.visible=.T.
thisform.label10.visible=.T.
thisform.label11.visible=.T.
thisform.label12.visible=.T.
thisform.text5.visible=.T.
thisform.text6.visible=.T.
thisform.combo2.visible=.T.
thisform.list1.visible=.T.
thisform.command4.visible=.T.
else
thisform.label8.visible=.F.
thisform.label9.visible=.F.
thisform.label10.visible=.F.
thisform.label11.visible=.F.
thisform.label12.visible=.f.
thisform.text5.visible=.f.
thisform.text6.visible=.f.
thisform.combo2.visible=.f.
thisform.list1.visible=.f.
thisform.command4.visible=.f.
endif
if thisform.optiongroup1.option3.value=1
thisform.label14.visible=.T.
thisform.label15.visible=.T.
thisform.label16.visible=.T.
thisform.text8.visible=.T.
thisform.edit2.visible=.T.
thisform.command5.visible=.T.
else
thisform.label14.visible=.F.
thisform.label15.visible=.F.
thisform.label16.visible=.F.
thisform.text8.visible=.F.
thisform.edit2.visible=.F.
thisform.command5.visible=.F.
endif
if thisform.optiongroup1.option4.value=1 then
thisform.label19.visible=.T.
thisform.label17.visible=.T.
thisform.text9.visible=.T.
thisform.command6.visible=.T.
else
thisform.label19.visible=.T.
thisform.label17.visible=.T.
thisform.text9.visible=.T.
thisform.command6.visible=.T.
endif
endif
Cualquier sugerencia es bienvenida..gracias
Luisa Fernanda
Respuesta
1
ThisForm.Optiongroup1.value=1 para tu primer opcion
ThisForm.Optiongroup1.value=2 para tu segunda opcion
y asi sucesivamente...
Probalo con:
MESSAGEBOX("Valor="+STR(ThisForm.Optiongroup1.value),48)
Gracias..igual no me funcionó, me tocó usar una función que hiciera invisible todos los controles y llamarla en cada una de las opciones y habilitar solo las de esa sección.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas