Hola a todos,
Requiero que el contenido de de todos los renglones de una columna de una
matriz(TArrayBrowse) pueda cargase en un combobox............. y la otra es
como puedo pasar el contenido de una variable a un combobox.
En las propiedades del ComboBox aItems...... puedo cargar lo que deseo
visualizar, pero como puedo hacer la carga de datos de forma manual por
medio de codigo?
Saludos
Armando Ruiz
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.
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.
Cargar datos en un ComboBox
-
Armando Ruiz
- Mensajes: 12
- Registrado: Jue May 15, 2008 4:48 am
Cargar datos en un ComboBox
1) En la columna, en la propiedad nEditType ponele beLISTBOX
2) En el evento FormInitialize del formulario llena los arrays
aEditListBound y aEditListText de la columna en cuestion.
ej: aadd(::oTB:aCols[8]:aEditListBound,cCodigo)
aadd(::oTB:aCols[8]:aEditListText ,cDescripcion)
en aEditListBound van los codigos asociados a las descripciones y en
aEditListText las descripciones del combo
3) en el evento onGetValue de la columna pone lo siguiente:
local i:=ascan(::oTB:aCols[8]:aEditListText,::oTB:GetValue(8))
if i<>0
Value:=::oTB:aCols[8]:aEditListBound
else
Value:=1
endif
En otras palabras debes retornar el codigo del texto que contiene la columna
4) en el OnPostEdit vos tenes el codigo y debes guardar la descripcion
por eso pone:
local i:=ascan(::oTB:aCols[8]:aEditListBound,Value)
::oTB:SetValue(8,::oTB:aCols[8]:aEditListText)
Espero que te sirve yo lo uso y esta muy bueno.
Saludos Atte
Christian
Armando Ruiz escribió:
> Hola a todos,
>
> Requiero que el contenido de de todos los renglones de una columna de
> una matriz(TArrayBrowse) pueda cargase en un combobox............. y la
> otra es como puedo pasar el contenido de una variable a un combobox.
>
> En las propiedades del ComboBox aItems...... puedo cargar lo que deseo
> visualizar, pero como puedo hacer la carga de datos de forma manual por
> medio de codigo?
>
> Saludos
> Armando Ruiz
2) En el evento FormInitialize del formulario llena los arrays
aEditListBound y aEditListText de la columna en cuestion.
ej: aadd(::oTB:aCols[8]:aEditListBound,cCodigo)
aadd(::oTB:aCols[8]:aEditListText ,cDescripcion)
en aEditListBound van los codigos asociados a las descripciones y en
aEditListText las descripciones del combo
3) en el evento onGetValue de la columna pone lo siguiente:
local i:=ascan(::oTB:aCols[8]:aEditListText,::oTB:GetValue(8))
if i<>0
Value:=::oTB:aCols[8]:aEditListBound
else
Value:=1
endif
En otras palabras debes retornar el codigo del texto que contiene la columna
4) en el OnPostEdit vos tenes el codigo y debes guardar la descripcion
por eso pone:
local i:=ascan(::oTB:aCols[8]:aEditListBound,Value)
::oTB:SetValue(8,::oTB:aCols[8]:aEditListText)
Espero que te sirve yo lo uso y esta muy bueno.
Saludos Atte
Christian
Armando Ruiz escribió:
> Hola a todos,
>
> Requiero que el contenido de de todos los renglones de una columna de
> una matriz(TArrayBrowse) pueda cargase en un combobox............. y la
> otra es como puedo pasar el contenido de una variable a un combobox.
>
> En las propiedades del ComboBox aItems...... puedo cargar lo que deseo
> visualizar, pero como puedo hacer la carga de datos de forma manual por
> medio de codigo?
>
> Saludos
> Armando Ruiz