I cannot use AddBitmap because I have bitmap on oTipClienti archive
and on xbrowse I have string oClienti:tipo
WITH OBJECT oBrwClienti:aCols[2]
:bStrData := { || oClienti:tipo }
END
I tried to call :bBmpData := { || CercaTipo(oClienti:Tipo) }
- Code: Select all Expand view RUN
- static Function CercaTipo(ctipo)
local nRecno := oTipCli:RecNo()
local nOrder := oTipCli:OrdNumber()
local nArea := Select()
oTipCli:SetOrder(1)
oTipCli:DbGoTop()
if ! oTipCli:Seek( ctipo )
oTipCli:GoTop()
endif
return oTipCli:imgcli
or load an array atipo( 2 size )
- Code: Select all Expand view RUN
- Functio cercatipo(atipo,cTipo)
Local nAt:= ascan(aTipo,{ |a| alltrim(a[ 1 ][1]) ==alltrim(ctipo) } )
return atipo[nat][2] //img
but not run ok