messaggio "end of file" scorrendo fino in fondo un
Posted: Fri Sep 05, 2008 4:32 pm
Uso questo codice per alimentare un array (aTIPI) con il contenuto del campo "descri" del dbf "tipi" :
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
- 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