AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

Board index FiveWin para Harbour/xHarbour AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL
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 (fw): Select all Collapse

                       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]

FWH 22.10 - HARBOUR - PELLES C

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL
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 (fw): Select all Collapse
                       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 (fw): Select all Collapse

            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 )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

remtec

Posts: 719

Joined: Fri May 12, 2017 02:50 PM

Re: AYUDA COMBOBOX CON ARRAY MULTIDIMENSIONAL
Posted: Sat Nov 10, 2018 12:02 AM

Hola CNavarro.

Funciono muy bien, muchas gracias por tu ayuda.

Saludos

Antonio.

FWH 22.10 - HARBOUR - PELLES C

FiveTech Support Forums

Continue the discussion