Comapeñros:
Tengo un array multidimensional del tipo:
anumero:={ {'1','uno'},{'2','dos'},{'3','tres'},{'4','cuatro'} }
si pretendo hacer un combobox con los 2º terminos de cada array, ¿ como lo hariais ?
¿ y con los primeros ?
Revisé el samples testarr2.prg, pero utiliza TWBROWSE y no me quedó claro.
Mil gracias.
LORENZO.
Loren, prueba con esto:
local anumero:={ {'1','uno'},{'2','dos'},{'3','tres'},{'4','cuatro'} }
local cItems:={}
local oDlg, oCbx1
local cVar
for n:=1 to len(aNumero)
aadd(cItems,aNumero[n][2]) //para armar combobox con segundo termino
next
cVar:=cItems[1]
DEFINE DIALOG oDlg RESOURCE "xxxx"
REDEFINE COMBOBOX oCbx1 VAR cVar ;
ID 103 OF oDlg ;
ITEMS cItems
Espero te sirva. Saludos.
Lorenzo, prueba asi:
aProducto := {{},{}}
AADD(aProducto[1],"0000000000000")
AADD(aProducto[2],"<Todos>")
(oDbf)->( DbEval( {|| AADD( aProducto[1] , (oDbf)->Id ) , AADD( aProducto[2], LEFT((oDbf)->Nombre,1)+SUBS(Lower((oDbf)->Nombre),2,44) ) }) )
cCbx := aProducto[2,1]
REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aProducto[2] ID 106 OF oDlg
a mi me va bien
salu2
Paco
