Xailer y los ComboBox. El fin de la desesperación.

Después de todo el día buscando la forma de echar  a andar un  TDBComboBox de Xailer con un DataSet de MySQL, he terminado “retocando” la clase TComboBox de esta forma:

CLASS TComboBox from XComboBox
   DATA oDataSet

   METHOD isEmpty() INLINE empty( ::aItems )
   METHOD setValue( value )
   METHOD setItem( dataSearch, item )
   METHOD getItem()

END CLASS

METHOD setValue( value ) CLASS TComboBox

   ::oDataSet:goTop()
   while !::oDataSet:eof()
      ::AddItem( ::oDataSet:FieldGetByName(value) )
      ::oDataSet:skip()
   end
   ::nIndex := 1

RETURN nil

METHOD setItem( dataSearch, item ) CLASS TComboBox

   local n := 1

   ::nIndex := 1
   ::oDataSet:goTop()
   while !::oDataSet:eof()
      if ::oDataSet:FieldGetByName(dataSearch) == item
         ::nIndex := n
      end if
      n++
      ::oDataSet:skip()
   end

RETURN nil

METHOD getItem() CLASS TComboBox
   ::oDataSet:goto( ::nIndex )
RETURN ::oDataSet

INFORMACION de datas y métodos:

  • oDataSet -> Data que contiene el dataset que se desea controlar.
  • isEmpty() -> Método que retorna .t. si el combobox está vacío.
  • setvalue( value ) -> Método que indica que FIELD del DataSource se va a usar para mostrar en el comboBox. Asigna el FIELD y carga el comboBox.
  • setItem( dataSearch, item ) -> Método que sirve para colocar el combobox en la posicion indicada en dataSearch -> FIELD por el que se buscará el dato y item -> Valor del dato.
  • getItem() -> Método para seleccionar el Dataset actual. Devuelve el DataSet de la fila seleccionada en el comboBox.
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: