TData question

[Otto]

Dear James,
In my copy of TData I have following commends:
::load() // Removed this line for FW 10.02
//::setArea( ::nArea ) // New for FW 10.02

I can’t remember where these commends are from.
Can you recommend what the right line for the current FWH release is?
Thanks in advance
Otto

Code: Select all  Expand view

//--- use() -> lSuccess
method use() class tdata
   local n:=0
   local lSuccess:= ::netLock({|| ::fileUse() }, "File open")
   if lSuccess
      ::load()           // Removed this line for FW 10.02
      //::setArea( ::nArea ) // New for FW 10.02
      for n = 1 to ( ::cAlias )->( FCount() )
         AAdd( ::aFldNames, ( ::cAlias )->( FieldName( n ) ) )
      next
   endif
return lSuccess
 

[James Bott]

Otto,

The lines should be:

// ::load() // Removed this line for FW 10.02
::setArea( ::nArea ) // New for FW 10.02

The latest TData.prg is dated 4/9/2010. It appears that you modified it. I will send you the original.

Regards,
James