messaggio "end of file" scorrendo fino in fondo un

Moderator: Enrico Maria Giordano

messaggio "end of file" scorrendo fino in fondo un

Postby max » Fri Sep 05, 2008 4:32 pm

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
User avatar
max
 
Posts: 128
Joined: Fri Jun 30, 2006 2:14 pm
Location: Ancona - Italy

Postby max » Tue Sep 09, 2008 7:35 am

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ì.
User avatar
max
 
Posts: 128
Joined: Fri Jun 30, 2006 2:14 pm
Location: Ancona - Italy


Return to All products support

Who is online

Users browsing this forum: No registered users and 5 guests