Xailer & OZ Software

Buena a todos
Este codigo me carga el combo bajo la modalidad "Bound"
METHOD DBComboBox1Create( oSender ) CLASS TForm1
LOCAL aData := {}, i := 1
LOCAL mC, mROW
mC := ::oMySQLDataSource1:Query( "select cod_banc, nomb_banc from
tban order by cod_banc")
do while !mC:EoF()
mROW := mC:GetRecord()
oSender:addItem( mROW:nomb_banc)
aadd(oSender:aItemsBound, mROW:cod_banc)
mC:Skip()
i++
enddo
oSender:ndataType := dtBOUND
RETURN Nil
El problema es que no muestra el nombre del banco cuando esta en modo de
ver sin embargo al editar el registro si usa el nombre, como hago para
que siempre muestre el nombre y no el codigo?
--

Andres,
Por favor, mandenos un ejemplo, a ser posible con DBFs que muestre el error.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Andres Hocevar" <datasql@gmail.com> escribió en el mensaje
news:[email=46fc5981@ozsrv2.ozlan.local...]46fc5981@ozsrv2.ozlan.local...[/email]
> Buena a todos
>
> Este codigo me carga el combo bajo la modalidad "Bound"
>
> METHOD DBComboBox1Create( oSender ) CLASS TForm1
> LOCAL aData := {}, i := 1
> LOCAL mC, mROW
>
> mC := ::oMySQLDataSource1:Query( "select cod_banc, nomb_banc from
> tban order by cod_banc")
> do while !mC:EoF()
> mROW := mC:GetRecord()
> oSender:addItem( mROW:nomb_banc)
> aadd(oSender:aItemsBound, mROW:cod_banc)
> mC:Skip()
> i++
> enddo
> oSender:ndataType := dtBOUND
>
> RETURN Nil
>
> El problema es que no muestra el nombre del banco cuando esta en modo de
> ver sin embargo al editar el registro si usa el nombre, como hago para
> que siempre muestre el nombre y no el codigo?
>
>
>

Ignacio Ortiz de Zúñiga escribió:
> Andres,
>
> Por favor, mandenos un ejemplo, a ser posible con DBFs que muestre el error.
>
> Un saludo
>
no es tan dificil si quitamos la parte de sql y lo hacemos manual
tampoco funciona:
METHOD DBComboBox1Create( oSender ) CLASS TForm1
LOCAL aData := {}, i := 1
LOCAL mC, mROW
oSender:aitemsBound := {'CAJ','BAF','BAN','BAR' }
oSender:aitems := {'CAJA','BAFOANDES','BANESCO','BARINAS' }
oSender:ndataType := dtBOUND
RETURN Nil
si el campo asociado tiene el valor 'CAJ' deberia presentar 'CAJA' y asi
con los demas, no lo hace cuando se esta en modo de ver, al editar si lo
cambia

Andres,
Le envío con este Email el ejemplo DBFDATA1 modificado con un nuevo
DBComboBox para mostrar el estado utilizando dtBOUND.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Andres Hocevar" <datasql@gmail.com> escribió en el mensaje
news:[email=46fd8e31@ozsrv2.ozlan.local...]46fd8e31@ozsrv2.ozlan.local...[/email]
> Ignacio Ortiz de Zúñiga escribió:
>> Andres,
>>
>> Por favor, mandenos un ejemplo, a ser posible con DBFs que muestre el
>> error.
>>
>> Un saludo
>>
>
> no es tan dificil si quitamos la parte de sql y lo hacemos manual
> tampoco funciona:
>
> METHOD DBComboBox1Create( oSender ) CLASS TForm1
> LOCAL aData := {}, i := 1
> LOCAL mC, mROW
>
> oSender:aitemsBound := {'CAJ','BAF','BAN','BAR' }
> oSender:aitems := {'CAJA','BAFOANDES','BANESCO','BARINAS' }
> oSender:ndataType := dtBOUND
>
> RETURN Nil
>
> si el campo asociado tiene el valor 'CAJ' deberia presentar 'CAJA' y asi
> con los demas, no lo hace cuando se esta en modo de ver, al editar si lo
> cambia
>
>
>


Attached files prueba.zip (3.9 KB)Â

Andres,
Reenvío el proyecto por tener un error de carga.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4700b2b4$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Andres,
>
> Le envío con este Email el ejemplo DBFDATA1 modificado con un nuevo
> DBComboBox para mostrar el estado utilizando dtBOUND.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Andres Hocevar" <datasql@gmail.com> escribió en el mensaje
> news:[email=46fd8e31@ozsrv2.ozlan.local...]46fd8e31@ozsrv2.ozlan.local...[/email]
>> Ignacio Ortiz de Zúñiga escribió:
>>> Andres,
>>>
>>> Por favor, mandenos un ejemplo, a ser posible con DBFs que muestre el
>>> error.
>>>
>>> Un saludo
>>>
>>
>> no es tan dificil si quitamos la parte de sql y lo hacemos manual
>> tampoco funciona:
>>
>> METHOD DBComboBox1Create( oSender ) CLASS TForm1
>> LOCAL aData := {}, i := 1
>> LOCAL mC, mROW
>>
>> oSender:aitemsBound := {'CAJ','BAF','BAN','BAR' }
>> oSender:aitems := {'CAJA','BAFOANDES','BANESCO','BARINAS' }
>> oSender:ndataType := dtBOUND
>>
>> RETURN Nil
>>
>> si el campo asociado tiene el valor 'CAJ' deberia presentar 'CAJA' y asi
>> con los demas, no lo hace cuando se esta en modo de ver, al editar si lo
>> cambia
>>
>>
>>
>
>
>


Attached files prueba.zip (3.8 KB)Â

Ignacio Ortiz de Zúñiga escribió:
> Andres,
>
> Reenví­o el proyecto por tener un error de carga.
>
> Un saludo
>
El problema era la propiedad nStyle debe ser
csDROPDOWNLIST
Gracias

Andres,
Me alegro de que ya le funcione. Si hubiera mandado el ejemplo como le
comentamos, le habriamos respondido con mayor celeridad.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Andres Hocevar" <datasql@gmail.com> escribió en el mensaje
news:[email=4700e99a@ozsrv2.ozlan.local...]4700e99a@ozsrv2.ozlan.local...[/email]
> Ignacio Ortiz de Zúñiga escribió:
>> Andres,
>>
>> Reenvío el proyecto por tener un error de carga.
>>
>> Un saludo
>>
> El problema era la propiedad nStyle debe ser
> csDROPDOWNLIST
>
> Gracias