show a string into xbrowse

[Silvio.Falconi]

I have a field numeric and I wish show the string + "gg"

:bEditValue :={ || str(oBrw:aArrayData[ oBrw:nArrayAt,1])+"gg" }

why not run ?

[nageswaragunupudi]

Simpler way is:

Code: Select all  Expand view

oCol:cEditPicture := "###gg"

[Silvio.Falconi]

Simpler way is:

Code: Select all  Expand view

oCol:cEditPicture := "###gg"

run only the last element




sample
cstring:= "30/60/90"

aData := hb_ATokens(cString,"/")

@ 10, 5 XBROWSE oBrw OF oDlg ;
COLUMNS 1,2;
HEADERS "gg","" ;
COLSIZES 40, 220 ;
ARRAY aData ;
SIZE -5,-100 PIXEL STYLE FLAT NOBORDER

WITH OBJECT oBrw
WITH OBJECT oBrw:aCols[1]
:cEditPicture := "###gg"
END
:lHScroll := .f.
:CreateFromCode()
END

[nageswaragunupudi]

I have a field numeric and I wish show the string + "gg"

Your question was to display "numeric" values with suffix "gg".
The suggestion of oCol:cEditPicture := "###gg" works for numeric values but not character values

In your code:

Code: Select all  Expand view

cstring:= "30/60/90"

aData := hb_ATokens(cString,"/")

@ 10, 5 XBROWSE oBrw OF oDlg ;
COLUMNS 1,2;
HEADERS "gg","" ;
COLSIZES 40, 220 ;
ARRAY aData ;
SIZE -5,-100 PIXEL STYLE FLAT NOBORDER

WITH OBJECT oBrw
WITH OBJECT oBrw:aCols[1]
:cEditPicture := "###gg"
END
:lHScroll := .f.
:CreateFromCode()
END
 

all elements of aData are character values.

So please do:

Code: Select all  Expand view

  aData := HB_ATokens( cString, "/" )
   AEval( aData, { |c,i| aData[ i ] := Val( c ) } )
 

[Silvio.Falconi]

thanks