FoxPro/Visual FoxPro - optiongroup

   
Vista:

optiongroup

Publicado por Sebastian (253 intervenciones) el 05/06/2008 23:08:40
Hola programadores tengo una grilla y un OptionGroup en el form cada vez que paso por las filas de la grilla debe actualizar los registros en los option pero no lo hace bien envio codigo que esta en el GotFocus del thisform.grid1.column1.text1.value del grid

selec tabla1
set order to PAC_FEC
x=thisform.grid1.column1.text1.value
thisform.refresh

y=thisform.grid1.column2.text1.value
thisform.refresh

z=thisform.grid1.column3.text1.value
thisform.refresh

buscador=x+ dtoc(y) + z
thisform.refresh
seek buscador

if found()then
thisform.text1.value=tabla1.codigo *** los tres primeros text si los actualiza correctamente
thisform.text2.value=tabla1.nombre
thisform.text3.value=tabla1apellidos

********** de aqui para abajo los muestra una vez bien luego cuando recorro en el grid otra fila ya no lo hace se queda estatico donde se activo primero.

If tabla1.campo1="A"
thisform.grupo1.option1.value=1
thisform.refresh
endif

If tabla1.campo1="B"
thisform.grupo1.option2.value=1
thisform.refresh
endif

If tabla1.campo1="C"
thisform.grupo1.option3.value=1
thisform.refresh
endif

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:optiongroup

Publicado por HELDER MARTINEZ (710 intervenciones) el 05/06/2008 23:31:58
LOS VALORES PARA CADA OPTION LOS VALORES DEBEN SER DIFERENTES.


If tabla1.campo1="A"
thisform.grupo1.option1.value=1
thisform.refresh
endif

If tabla1.campo1="B"
thisform.grupo1.option2.value=2
thisform.refresh
endif

If tabla1.campo1="C"
thisform.grupo1.option3.value=3
thisform.refresh
endif

SALUDES, ESPERO HABERTE AYUDADO

HELDER MARTINEZ
HONDURAS C.A
YORO YORO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:optiongroup

Publicado por mauricio (1 intervención) el 21/09/2008 19:57:32
perros
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:optiongroup

Publicado por helder (710 intervenciones) el 05/06/2008 23:33:19
EJEMPLO

SELECT ventas

IF ventas.tipo= "CONTADO"
thisform.opgTipo.Value= 1
ENDIF

IF ventas.tipo= "CREDITO"
THISFORM.OPgTipo.Value =2
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:optiongroup

Publicado por enrique (1041 intervenciones) el 05/06/2008 23:39:52
1. Pasa todo el codigo al evento del Grid AfterRowColChange (es mas practico)
2. inicializa el value del grupo1 en 0
3. modifica en el codigo que no funciona

If tabla1.campo1="A"
thisform.grupo1.value=1
endif

If tabla1.campo1="B"
thisform.grupo1.value=2
endif

If tabla1.campo1="C"
thisform.grupo1.value=3
endif
thisform.refresh
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:optiongroup

Publicado por Sebastian (253 intervenciones) el 05/06/2008 23:59:01
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar