FiveTech Software tech support forums

Posted: **Fri Nov 09, 2018 10:36 pm**

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

                       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]

Posted: **Fri Nov 09, 2018 11:37 pm**

remtec wrote: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
                       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



            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 )

Posted: **Sat Nov 10, 2018 12:02 am**

Hola CNavarro.

Funciono muy bien, muchas gracias por tu ayuda.

Saludos

Antonio.

FiveTech Software tech support forums

AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

Re: AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

Re: AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL