Como usar los datos de una tabla en un combobox...

[Elias Torres]

Hola a todos...

Necesito vuestra ayuda. Tengo un combo en el que cada elemento debe ser un campo de una tabla, pero me da error....

Yo lo estoy usando de la siguiente manera:

....

redefine combobox oCombo var cItems ITEMS alltrim(almacenes->nombre) id 200 of odlg30

....

Pero al intentar ejecutarlo me da un error que pone:


Argument error
AEVAL
Args:
[ 1] = C Almacen uno
[ 2] = B {|| ... }

stack calls:
TCOMBOBOX:DEFAULT(0)
TCOMBOBOX:INITIATE(0)
__OBJSENDMSG(0)
OSEND(0)
ASEND(0)
TDIALOG:INITIATE(0)
TDIALOG:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
SELECCION_ALMACEN(252)
(b)BOTONERA(211)
TBTNBMP:CLICK(0)
TBTNBMP:LBUTTONUP(0)
TWINDOW:HANDLEEVENT(0)
TBTNBMP:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
INVENTARIO(487)
(b)MAIN(38)
TBITMAP:LBUTTONDOWN(0)
TWINDOW:HANDLEEVENT(0)
TCONTROL:HANDLEEVENT(0)
TBITMAP:HANDLEEVENT(0)
_FWPPC(0)
DIALOGBOX(0)
TDIALOG:ACTIVATE(0)
MAIN(45)


Un saludo a todos...

Elías Torres.

[Biel EA6DD]

Hola Elias,
el parametro ITEMS del combobox debe ser un array, prueba de la siguiente manera.

Code: Select all  Expand view

...
aNombre:={}
Almacenes->(dbEval({||aAdd(aNombre,AllTrim(Nombre))}))

redefine combobox oCombo var cItems ITEMS aNombre id 200 of odlg30
...


[carlos vargas]

N es mejor usar un dbcombo?

salu2
carlos vargas

[Biel EA6DD]

Hola Carlos,
si, dbCombo seria mas comodo, pero creo que dicha clase no esta disponible en FWPPC.