Miriam
02 de Mayo del 2004

Hola:
Tengo un problema estoy usando optiongroup, donde tengo 4 opciones:
1 teclado
2 mouse
3 floppy
4 monitor
Entonces cuando se le de a cualquiera de las 4 opciones me va a guardar esa palabra en un text ya que uso bases de datos con tablas
En mi codigo tengo esto:

DEFINE CLASS opcion AS OptionGroup
ButtonCount = 4
PROCEDURE asignar
DO CASE
CASE ThisForm.OptionGroup1.Value = 1
ThisForm.txtnombre.text = "Teclado"
CASE ThisForm.OptionGroup1.Value = 2
ThisForm.txtnombre.text = "Mouse"
CASE ThisForm.OptionGroup1.Value = 3
ThisForm.txtnombre.text = "Monitor"
CASE ThisForm.OptionGroup1.Value = 4
ThisForm.txtnombre.text = "Floppy"
ENDCASE
enddefine

Solo que me manda un error sobre no tener clases anidadas, creo que es porque uso clases y aparte esa clase que define para las opciones.
Donde debo de tener el codigo (si es que esta bien) para que se compile correctamente.
Gracias

Roberto Rangel
02 de Mayo del 2004

Hola, solamente elimina las primeras tres lineas de tu codigo y la ultima y el resto colocalo en el evento InteractiveChange de tu objeto tipo OptionGroup y listo, debe funcionar para lo que necesitas. Si necesitas mas ayuda al respecto no dudes en contactarme.

Saludos.