AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

[remtec]

Amigos

Una ves mas molestando, tengo un problema debo usar un COMBOBOX MULTIDIMENSIONAL, he tratado de adecuar este codigo pero no lo consigo:

Debo obtener el Codigo desde el arreglo, "A", "S", "U".

Desde ya muchas gracias.

Atte.

Antonio.

Code: Select all  Expand view

                       Private aLista:= {{"A","ADMINISTRADOR"},{"S","SUPERVISOR"},{"U","USUARIO"}}

            REDEFINE COMBOBOX oTip_usu2 VAR Tip_usu2 ITEMS aLista ID 120 OF oDlgEdit  COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
                                      ON CHANGE Tip_usu2:= aLista[1][oTip_usu2:nAt]


 

[cnavarro]

Amigos

Una ves mas molestando, tengo un problema debo usar un COMBOBOX MULTIDIMENSIONAL, he tratado de adecuar este codigo pero no lo consigo:

Debo obtener el Codigo desde el arreglo, "A", "S", "U".

Desde ya muchas gracias.

Atte.

Antonio.

Code: Select all  Expand view

                       Private aLista:= {{"A","ADMINISTRADOR"},{"S","SUPERVISOR"},{"U","USUARIO"}}

            REDEFINE COMBOBOX oTip_usu2 VAR Tip_usu2 ITEMS aLista ID 120 OF oDlgEdit  COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
                                      ON CHANGE Tip_usu2:= aLista[1][oTip_usu2:nAt]


 

Intenta esto

Code: Select all  Expand view

            local aLista  := { "ADMINISTRADOR" ,"SUPERVISOR" ,"USUARIO" }
            local TipUsu := ""   // Variable para recibir el codigo

            REDEFINE COMBOBOX oTip_usu2 VAR Tip_usu2 ITEMS aLista ID 120 OF oDlgEdit  COLORS nRGB(9, 11, 10), nRGB(73, 250, 202);
                                      ON CHANGE TipUsu := Left( Tip_usu2, 1 )

 

[remtec]

Hola CNavarro.

Funciono muy bien, muchas gracias por tu ayuda.

Saludos

Antonio.