ComboBox
Publicado por Gabriel (427 intervenciones) el 19/05/2006 16:49:34
Amiga Esther :
La codificacion que te muestro la utilizo para verificar si el Valor Existe...
* Antes de Agregar nos seguramos que el valor no este en el COMBOBOX desplegable
IF nKeyCode = 13 && ENTER
lItemExist = .F. && Se supone que el valor no esta en la lista
FOR I = 1 To THIS.ListCount
IF Upper(This.List(I)) = Upper(Alltrim(THIS.DisplayValue))
lItemExist = .T. && Existe el Valor
Exit
ENDIF
ENDFOR
Ahora bien segun la codificacion que estas aplicando utiliza el siguiente.
En donde pones :
Thisform.ComBo1.Value cambialo por Thisform.Combo1.DisplayValue
Espero te sirva mis sugerencias...
Saludos,
GABRIEL
(Lima-Perú)
La codificacion que te muestro la utilizo para verificar si el Valor Existe...
* Antes de Agregar nos seguramos que el valor no este en el COMBOBOX desplegable
IF nKeyCode = 13 && ENTER
lItemExist = .F. && Se supone que el valor no esta en la lista
FOR I = 1 To THIS.ListCount
IF Upper(This.List(I)) = Upper(Alltrim(THIS.DisplayValue))
lItemExist = .T. && Existe el Valor
Exit
ENDIF
ENDFOR
Ahora bien segun la codificacion que estas aplicando utiliza el siguiente.
En donde pones :
Thisform.ComBo1.Value cambialo por Thisform.Combo1.DisplayValue
Espero te sirva mis sugerencias...
Saludos,
GABRIEL
(Lima-Perú)
Valora esta pregunta


0