Array multidimensional con Combobox

[Loren]

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.

[FranciscoA]

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.

[Francisco Horta]

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