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. ) }