print a value from dbf (fieldWBlock)

[Silvio.Falconi]

I must return me the value of a field on a dbf





this is a small test

Code: Select all  Expand view

#include "FiveWin.ch"


REQUEST DBFCDX
     

Function test()
local odbf,cField,ctxt

     oDbf:=TDatabase():Open( , "Customer", "DBFCDX", .T. )
     oDbf:setorder(1)

     cField ="first"
     cField:=trim(cField)          
     ctxt:=bCampo( cfield,oDbf)  //give me an array

?ctxt

return nil

static function bCampo( cCampo,oDbf)
   return   oDbf:fieldWBlock(cCampo )
 

If I made

xbrowser ctxt


I see this



If I made

?ctxt[1] or ?ctxt[1][1]

make error why ?


How I can resolve ?

[Antonio Linares]

Dear Silvio,

function bCampo() is returning a codeblock and that is what you see (not an array)

Simply evaluate the codeblock providing the parameters

[Silvio.Falconi]

opps sorry