Page 1 of 1

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

Posted: Mon Jun 25, 2007 9:09 am
by 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.

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

Posted: Tue Jun 26, 2007 8:39 am
by goosfancito
Nadie tiene idea?

Gracias.
goosfancito wrote: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.

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

Posted: Wed Jun 27, 2007 9:22 am
by 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. ) }

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

Posted: Wed Jun 27, 2007 10:19 am
by goosfancito
Viele Danke.

NK wrote: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. ) }