oDBComboboxMod:Value() regresa vacío

[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

[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.

[Israel Solis]

Igancio,

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

gracias