In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

oDBComboboxMod:Value() regresa vacío

Foro de Xailer profesional en español
Responder
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

oDBComboboxMod:Value() regresa vacío

Mensaje por Israel Solis »

Xailer team:

En control DBCombobox MODerno no guarda lo que el usuario teclea libremente...

Sobre el SAMPLE: \Xailer8.2\Samples\Modern\ComboBox

Tomando el DBComboboxMod

:lFreeEdit := .T. // se requiere que el usuario pueda introducir un texto que no se muestra en la lista
:nDataType := dtSTRING // para asegurarnos que el tipo es solo cadena de texto
:oDataField := Last // asociado a un campo
:onCreate := DBComboboxMod1Create
:onExit := DBComboboxMod1Exit // evento porque se requiere validar lo capturado

METHOD DBComboboxMod1Create( oSender ) CLASS TForm1
oSender:aItems := {"bingen", "fredy", "pedro"} // <<=== Opciones de texto que se necesitan cargar en tiempo de ejecución
RETURN Nil

METHOD DBComboboxMod1Exit( oSender, oNextCtl ) CLASS TForm1
LogDebug( oSender:Value() ) << === muestra VACIO aún cuando se ha tecleado texto
RETURN Nil


NO GUARDA EL TEXTO QUE EL USUARIO HA TECLEADO LIBREMENTE
Saludos :D

Israel
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: oDBComboboxMod:Value() regresa vacío

Mensaje por ignacio »

Código: Seleccionar todo

METHOD GetText( nIndex ) CLASS xComboBoxMod

   LOCAL cText

   IF PCount() == 0 .OR. ( (nIndex == 0 ) .AND. ::lFreeEdit )
      RETURN ::Super:GetText()
   ENDIF

   DEFAULT nIndex TO 0

   IF nIndex > 0 .AND. nIndex <= Len( ::aItems )
      cText := ::aItems[ nIndex ]
   ELSE
      cText := ""
   ENDIF

RETURN cText
Gracias.
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

Re: oDBComboboxMod:Value() regresa vacío

Mensaje por Israel Solis »

Igancio,

Ya funciona, oSender:Value() ya regresa el valor del control

gracias
Saludos :D

Israel
Responder