SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Jueves 29 de Mayo de 2003, 15:39
-
Hola compañer@s!
Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.
Muchas Gracias de antemano.
:band:
-
Tal vez te pueda ayudar, pero debes ser más específico y claro en tu problema.:question:
-
Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.
Ejemplo:
Tengo un frame que tiene las opciones siguientes:
Investigación
Oferta
Desarrollo
cada opción debe ser un valor 1,2,3
cuando traigo el recordset con alguno de estos valores ¿ como lo adjudico al Frame?
y activo las casillas.
:band:
-
Lo que tienes que hecer es utilizar la sentencia Selec Case así:
Select Case rs.campo
Case 1
opcion1.value = true
Case 2
opcion2.value = true
Case 3
opcion3.value = true
End Select
Estas líneas las escribes después de que se actualice el recordset que tiene el valor del campo.
-
No sé si he comprendido bien tu problema. Por si acaso te adjunto este código que he preparado específicamente para tu caso.
Saludos
-
:comp:
Un modo en que lo puedes resolver, es nombrando del mismo los controles de tus tres opciones, por lo que tendras que utilizar la propiedad Index, lo que significa que tiene un arreglo de controles. Ahora para seleccionar alguna de estas opciones según el valor del campo leido, lo puedes hacer de la siguiente manera
ctl_OptionControl(rst_Recordset("Campo")).Value =true
De esta manera si el valor de tu campo es 1, entonces activaras tu control de opciones cuyo valor indice sea 1.
Espero que esto te sea de ayuda, y si no entonces quizá podrias explicarme mejor que es lo que requieres.
Espero me digas como te fué, y me avises por si requieres de ayuda adicional
:suerte:
-
Al final lo he heco como decía melileo.
Select Case Rst("PRODESTINO")
Case Is = 1 'Investigación
Me.GrpDestino1.Value = True
Case Is = 2 'Oferta
Me.GrpDestino2.Value = True
Case Is = 3 'Desarrollo
Me.GrpDestino3.Value = True
End Select
Muchas gracias a todos.
:beer: