
optionGroup
Publicado por juanjo (110 intervenciones) el 29/01/2007 03:05:44
bueno me podrian decir como se manipulan los optionGroup .
osea como verifico(evaluar) que se debe de seleccionar una opcion.
como trabaja con empty ó val (o sin ninguna de estas)
1000000000000 gracias de ante mano.........
des este for he aprendido un buen pero nunca habia tenido problemas con esto.
gracoas ahi les pongo denuevo el codigo.
a=empty(alltrim(thisform.text1.value))
b=empty(alltrim(thisform.pageframe1.page1.text1.value))
c=empty(alltrim(thisform.pageframe1.page1.text2.value))
d=empty(alltrim(thisform.pageframe1.page1.text3.value))
e=empty(alltrim(thisform.pageframe1.page1.text4.value))
f=empty(alltrim(thisform.pageframe1.page1.text5.value))
g=empty(alltrim(thisform.pageframe1.page1.text6.value))
h=empty(alltrim(thisform.pageframe1.page1.text7.value))
i=empty(alltrim(thisform.pageframe1.page1.text8.value))
j=empty(alltrim(thisform.pageframe1.page1.text9.value))
k=empty(alltrim(thisform.pageframe1.page1.text10.value))
sexo=(thisform.pageframe1.page1.optiongroup1.option1.value)
lice=(thisform.pageframe1.page1.optiongroup2.option1.value)
thisform.pageframe1.page1.label14.visible=.f.
zz=0
if a!=.f.
messageb("Falta numero de percanse",32,"Indispensable")
else
if b!=.f.
messageb("Indispensable")
else
if c!=.f.
messageb("indispensable")
else
if d!=.f.
messageb("Indispensable")
else
if e!=.f.
messageb("sable")
else
if f!=.f.
messageb(""Indispensable")
else
if lice==0
messagebox("No tiene ")
x=2
zz=2
else
messagebox("SI tiene ")
x=1
endif
if sexo==1 *****&&&&&&&&&&------>el depurador me marca el error aqui porfa que es<--------------
messagebox("M")
else
messagebox("H")
endif
*-----------------------------------------------
if x==1
if g!=.f.
messagebox("Falta ")
else
if h!=.f.
messagebox("Falta ")
else
if i!=.f.
messagebox("falta ")
else
if j!=.f.
messagebox("Que ")
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
osea como verifico(evaluar) que se debe de seleccionar una opcion.
como trabaja con empty ó val (o sin ninguna de estas)
1000000000000 gracias de ante mano.........
des este for he aprendido un buen pero nunca habia tenido problemas con esto.
gracoas ahi les pongo denuevo el codigo.
a=empty(alltrim(thisform.text1.value))
b=empty(alltrim(thisform.pageframe1.page1.text1.value))
c=empty(alltrim(thisform.pageframe1.page1.text2.value))
d=empty(alltrim(thisform.pageframe1.page1.text3.value))
e=empty(alltrim(thisform.pageframe1.page1.text4.value))
f=empty(alltrim(thisform.pageframe1.page1.text5.value))
g=empty(alltrim(thisform.pageframe1.page1.text6.value))
h=empty(alltrim(thisform.pageframe1.page1.text7.value))
i=empty(alltrim(thisform.pageframe1.page1.text8.value))
j=empty(alltrim(thisform.pageframe1.page1.text9.value))
k=empty(alltrim(thisform.pageframe1.page1.text10.value))
sexo=(thisform.pageframe1.page1.optiongroup1.option1.value)
lice=(thisform.pageframe1.page1.optiongroup2.option1.value)
thisform.pageframe1.page1.label14.visible=.f.
zz=0
if a!=.f.
messageb("Falta numero de percanse",32,"Indispensable")
else
if b!=.f.
messageb("Indispensable")
else
if c!=.f.
messageb("indispensable")
else
if d!=.f.
messageb("Indispensable")
else
if e!=.f.
messageb("sable")
else
if f!=.f.
messageb(""Indispensable")
else
if lice==0
messagebox("No tiene ")
x=2
zz=2
else
messagebox("SI tiene ")
x=1
endif
if sexo==1 *****&&&&&&&&&&------>el depurador me marca el error aqui porfa que es<--------------
messagebox("M")
else
messagebox("H")
endif
*-----------------------------------------------
if x==1
if g!=.f.
messagebox("Falta ")
else
if h!=.f.
messagebox("Falta ")
else
if i!=.f.
messagebox("falta ")
else
if j!=.f.
messagebox("Que ")
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
Valora esta pregunta


0