FoxPro/Visual FoxPro - optiongroup

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

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

perros

EJEMPLO

SELECT ventas

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

IF ventas.tipo= "CREDITO"
THISFORM.OPgTipo.Value =2
ENDIF

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

Gracias