FoxPro/Visual FoxPro - espacios en blanco

 
Vista:

espacios en blanco

Publicado por ivan (52 intervenciones) el 01/05/2007 23:46:41
salu2!!

tengo una duda sobre un frm en el cual tengo 3 combo box y quiero que el formulario tenga todos los campos llenos me explico?
que afuerza tenga que elegir una opcion y si no que no me pase al siguiente
como puedo hacer eso

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:espacios en blanco

Publicado por Plinio (7841 intervenciones) el 01/05/2007 23:53:14
Tratando de entenderte .....
En los combos pon el valor de la propiedad Style en 2 y en el gotfocus de cada combo pon algo asi:
This.listIndex = 1
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
sin imagen de perfil

RE:espacios en blanco

Publicado por Ernesto Hernandez (4623 intervenciones) el 02/05/2007 04:14:31
with thisform
IF cbobox1.VALUE=SPACE(4) .AND. THIS.VALUE<>SPACE(4)
=MESSAGEBOX("No puede dejar en blanco la sub sub cuenta",48,"Corrija y reintente")
.cbobox1.SETFOCUS
RETURN

pUEDES usar algo asi en tu cmbobox
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:espacios en blanco

Publicado por ivan (52 intervenciones) el 02/05/2007 20:51:12
disculpa ernesto
el codigo el cual me presentas lo inserte tal y cual pero me falta el endif y endwith
los coloque pero el problema es que no se en que propiedad ponerlo.
sino te molesta mi ignorancia te pido que me ayudes.

________________________________________________________________
es mejor ser el peor de los mejores que el mejor de los peores
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
sin imagen de perfil

RE:espacios en blanco

Publicado por Ernesto Hernandez (4623 intervenciones) el 02/05/2007 21:04:19
WITH THisform

IF cbobox1.VALUE=SPACE(4) .AND. THIS.VALUE<>SPACE(4)
=MESSAGEBOX("No puede dejar en blanco la sub sub cuenta",48,"Corrija y reintente")
.cbobox1.SETFOCUS
RETURN

ENDWITH && perdon falta esto
pero recuerda que tienes que cambiar los nombre de las variables de acuerdo a las tuyas

Suerte
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