Combobox on multidimensional array

[Marco Turco]

Hi all,
I have a multidimensional array like:

aArray:=array(0,2)
aadd(1,"Marc")
aadd(2,"Luca")
aadd(3,"Jannette")
aadd(4,"Francis")

and I would make a combobox with only the second element list (the names).

Is there a quick way to make this directly into the REDEFINE COMBOBOX command line ?

Thank you in advance

[Antonio Linares]

Marco,

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local aArray := {}
   local oDlg, cName := "Marc"

   AAdd( aArray, { 1, "Marc" } )
   AAdd( aArray, { 2, "Luca" } )
   AAdd( aArray, { 3, "Jannette" } )
   AAdd( aArray, { 4, "Francis" } )

   DEFINE DIALOG oDlg

   @ 1, 1 COMBOBOX cName ITEMS ArrTranspose( aArray )[ 2 ]

   ACTIVATE DIALOG oDlg CENTERED

return nil

[Marco Turco]

Hi Antonio,
it runs. Thank you.

I have just a problem trying to use the ArrTranspose() into the command syntax,
essentially I have to replace the <aItems> with ArrTranspose(<aItems>)[2] but it doesn't runs, sure for a syntax problem. Any ideas ?
Thank you.


#xcommand REDEFINE COMBOLIST [ <oCbx> VAR ] <cVar> ;
[ <items: PROMPTS, ITEMS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ STYLE <nStyle> ] ;
[ <pict: PICT, PICTURE> <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
ArrTranspose(<aItems>)[2], <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )

[Antonio Linares]

Marco,

Please try this:

ArrTranspose(<aItems>)\[2\]

[Marco Turco]

Great !! Thank you Antonio.

[cnavarro]

Marco
I think the solution is:

viewtopic.php?f=3&t=25496&start=0&hilit=arrtranspose



Sorry,
It's a joke