Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante lo
que tengo hecho.
Dejame ver si me explico.
El caso es que con el Combox normal, hago esto, si las imagenes, ahora
quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
esto y nunca se me llena,, que hago mal, que me falta,, de todas las maneras
aqui va un adjunto.
METHOD CBCreate( oSender ) CLASS TForm1
LOCAL cDescrip
local aImag :={"User1","Grupo1"}
WITH OBJECT ::oCB
::oDS6:Select()
::oDS6:GoTop()
Do While !::oDS6:Eof()
cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
*logdebug(cDescrip)
::oCB:AddItem(cDescrip,"User",2,2)
::oDS6:Skip()
EndDo
END
RETURN Nil
Attached files ComboEx.rar (7.2 KB)Â
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.
ComboBoxEx
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
ComboBoxEx
Carlos,
Manda la DBF por favor.
Gracias,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante lo
> que tengo hecho.
>
> Dejame ver si me explico.
>
> El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> maneras
> aqui va un adjunto.
>
>
> METHOD CBCreate( oSender ) CLASS TForm1
> LOCAL cDescrip
> local aImag :={"User1","Grupo1"}
> WITH OBJECT ::oCB
> ::oDS6:Select()
> ::oDS6:GoTop()
> Do While !::oDS6:Eof()
> cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> *logdebug(cDescrip)
> ::oCB:AddItem(cDescrip,"User",2,2)
> ::oDS6:Skip()
> EndDo
> END
> RETURN Nil
>
>
>
Manda la DBF por favor.
Gracias,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante lo
> que tengo hecho.
>
> Dejame ver si me explico.
>
> El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> maneras
> aqui va un adjunto.
>
>
> METHOD CBCreate( oSender ) CLASS TForm1
> LOCAL cDescrip
> local aImag :={"User1","Grupo1"}
> WITH OBJECT ::oCB
> ::oDS6:Select()
> ::oDS6:GoTop()
> Do While !::oDS6:Eof()
> cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> *logdebug(cDescrip)
> ::oCB:AddItem(cDescrip,"User",2,2)
> ::oDS6:Skip()
> EndDo
> END
> RETURN Nil
>
>
>
ComboBoxEx
Aui va
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>
Attached files x.DBF (482 B)Â
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>
Attached files x.DBF (482 B)Â
ComboBoxEx
La Dbf esta en en el compactado,, se llama x.dbf
GRaccias
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>
GRaccias
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
ComboBoxEx
Carlos,
No haces nada mal. Es un error nuestro, lo siento. Intentaremos arreglarlo
lo antes posible.
Un saludo,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424da5d6@ozsrv2.ozlan.local...]424da5d6@ozsrv2.ozlan.local...[/email]
> La Dbf esta en en el compactado,, se llama x.dbf
>
> GRaccias
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> Manda la DBF por favor.
>>
>> Gracias,
>>
>> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
>> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
>> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
> lo
>> > que tengo hecho.
>> >
>> > Dejame ver si me explico.
>> >
>> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
>> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,,
>> > hago
>> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
>> > maneras
>> > aqui va un adjunto.
>> >
>> >
>> > METHOD CBCreate( oSender ) CLASS TForm1
>> > LOCAL cDescrip
>> > local aImag :={"User1","Grupo1"}
>> > WITH OBJECT ::oCB
>> > ::oDS6:Select()
>> > ::oDS6:GoTop()
>> > Do While !::oDS6:Eof()
>> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
>> > *logdebug(cDescrip)
>> > ::oCB:AddItem(cDescrip,"User",2,2)
>> > ::oDS6:Skip()
>> > EndDo
>> > END
>> > RETURN Nil
>> >
>> >
>> >
>>
>>
>
>
No haces nada mal. Es un error nuestro, lo siento. Intentaremos arreglarlo
lo antes posible.
Un saludo,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424da5d6@ozsrv2.ozlan.local...]424da5d6@ozsrv2.ozlan.local...[/email]
> La Dbf esta en en el compactado,, se llama x.dbf
>
> GRaccias
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> Manda la DBF por favor.
>>
>> Gracias,
>>
>> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
>> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
>> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
> lo
>> > que tengo hecho.
>> >
>> > Dejame ver si me explico.
>> >
>> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
>> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,,
>> > hago
>> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
>> > maneras
>> > aqui va un adjunto.
>> >
>> >
>> > METHOD CBCreate( oSender ) CLASS TForm1
>> > LOCAL cDescrip
>> > local aImag :={"User1","Grupo1"}
>> > WITH OBJECT ::oCB
>> > ::oDS6:Select()
>> > ::oDS6:GoTop()
>> > Do While !::oDS6:Eof()
>> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
>> > *logdebug(cDescrip)
>> > ::oCB:AddItem(cDescrip,"User",2,2)
>> > ::oDS6:Skip()
>> > EndDo
>> > END
>> > RETURN Nil
>> >
>> >
>> >
>>
>>
>
>