messaggio "end of file" scorrendo fino in fondo un

[max]

Uso questo codice per alimentare un array (aTIPI) con il contenuto del campo "descri" del dbf "tipi" :

Code: Select all  Expand view

local aTIPI:={}
local dTIPI
use tipi index tipi new
database dTIPI
dTIPI:gotop()
do while ! dTIPI:eof()
      aadd(aTIPI,dTIPI:descri)
      dTIPI:skip()
enddo
dTIPI:close()

Tutto funziona bene, ma non capisco perché mi viene fuori automaticamente un messaggio di stop con "end of file" che non riesco ad evitare... Io uso solo eof() nel ciclo proprio per fermarmi prima, e lo skip lo faccio solo se eof() è .F. ....

MT

FWH 8.04 - XHARBOUR 1.1.0

[max]

Ho notato che utilizzando eof() e skip , senza mettere i riferimenti a dtipi (l'oggetto database), i msgstop di "end of file" o "begin of file" non vengono fuori.
Per ora ho aggirato così.