TsBrowse y Combobox, no me devuelve el dato...

[goosfancito]

Estimados.

Tengo este codigo:

Code: Select all

      REDEFINE BROWSE oBrw ID 203 OF oFolder:aDialogs[2] grid FONT GetFont():celda

         oBrw:SetArray( vDatosOrigenes )

         // Origen
         ADD COLUMN TO oBrw ;
            DATA Array element 1;
            Header "Origen" ;
            ALIGN DT_CENTER, DT_CENTER ;
            PICTURE "@KX" ;
            WIDTH 100 PIXELS

         oBrw:SetData( 1, ,{"uno", "dos", "tres" }  )

         // Aca tengo el error!!!
         oBrw:aColumns[1]:bPostEdit:= { || MsgInfo(vDatosorigenes[obrw:nat,1]) }

...

Porque siempre me devuelve el valor "uno" si selecciono cualquier otro.

Gracias.

[goosfancito]

Nadie tiene idea?

Gracias.

Estimados.

Tengo este codigo:

Code: Select all

      REDEFINE BROWSE oBrw ID 203 OF oFolder:aDialogs[2] grid FONT GetFont():celda

         oBrw:SetArray( vDatosOrigenes )

         // Origen
         ADD COLUMN TO oBrw ;
            DATA Array element 1;
            Header "Origen" ;
            ALIGN DT_CENTER, DT_CENTER ;
            PICTURE "@KX" ;
            WIDTH 100 PIXELS

         oBrw:SetData( 1, ,{"uno", "dos", "tres" }  )

         // Aca tengo el error!!!
         oBrw:aColumns[1]:bPostEdit:= { || MsgInfo(vDatosorigenes[obrw:nat,1]) }

...

Porque siempre me devuelve el valor "uno" si selecciono cualquier otro.

Gracias.

[NK]

Here is an sample from my code, it works fine

Regards, Norbert

Code: Select all

            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE "Eingabe" ; 
            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;
            SIZE nSpa2  EDITABLE ;
            COLORS CLR_BLACK, CLR_WHITE ;
            3DLOOK FALSE, FALSE, FALSE ; 
            MOVE DT_MOVE_NEXT ;
            PREEDIT { | uVar | IF( ValType( aUserFld1[ oLbx2:nAt, 4 ] ) = "A", ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .T., oLbx2:aColumns[ 2 ]:aItems := aUserFld1[ oLbx2:nAt, 4 ] ), ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .F., oLbx2:aColumns[ 2 ]:aItems := NIL ) ), nPreVal := uVar } ; 
            POSTEDIT { || oLbx2:Refresh( .T. ) }

[goosfancito]

Viele Danke.

Here is an sample from my code, it works fine

Regards, Norbert

Code: Select all

            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE "Eingabe" ; 
            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;
            SIZE nSpa2  EDITABLE ;
            COLORS CLR_BLACK, CLR_WHITE ;
            3DLOOK FALSE, FALSE, FALSE ; 
            MOVE DT_MOVE_NEXT ;
            PREEDIT { | uVar | IF( ValType( aUserFld1[ oLbx2:nAt, 4 ] ) = "A", ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .T., oLbx2:aColumns[ 2 ]:aItems := aUserFld1[ oLbx2:nAt, 4 ] ), ;
                                   ( oLbx2:aColumns[ 2 ]:lComboBox := .F., oLbx2:aColumns[ 2 ]:aItems := NIL ) ), nPreVal := uVar } ; 
            POSTEDIT { || oLbx2:Refresh( .T. ) }