Hi again!
After searching this problem for a few hours... normal to the learner, got
the following result.
proc main()
field f
local inicio, fim
set date to brit
set epoch to 1970
dbcreate("_tst",{{"F","D",8,0}})
use _tst
dbappend(); f := ctod('22/09/09')
dbappend(); f := ctod('23/09/09')
dbappend(); f := ctod('28/09/09')
dbappend(); f := ctod('28/09/09')
close all
use _tst new alias 't1' shared
use _tst new alias 't2' shared
inicio := ctod('22/09/09')
fim := ctod('22/09/09')
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
?
set filter to t1->f >= inicio .and. t1->f <= fim
t1->(dbgotop())
while !t1->(eof())
? t1->(recno()), t1->f
t1->(dbskip())
enddo
return
Please comment shared option while open dbf file.
use _tst new alias 't1'
use _tst new alias 't2'
try again.
Best regards,
Itamar M. Lins Jr.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
