dbskip(0) will move the record pointer to phantom record (honoring the
scope). other RDDS don't do that
--------------
#include "ads.ch"
proc main()
rddregister( "ADS", 1 )
rddsetdefault( "ADSCDX" )
set server local
adslocking( .f. )
adssetfiletype(ADS_CDX)
adslocking( .f. )
dbcreate("test.dbf",{ ;
{"tick" ,"n" , 10,0} })
use test via "ADSCDX" excl
index on tick tag tick
ordscope(0, 100)
ordscope(1, 200 )
? rddname()
for lop := 1 to 10
dbappend( .t. )
//refresh buffer (server's trigger populated some fields)
dbskip( 0 )
//goto recn() //<----- this is ok
field->tick := 100 + lop
? field->tick ,eof()
next
browse() // looks like a corrupted index file , try browsing
*******************
--
View this message in context:
http://n2.nabble.com/nasty-bug%3A-in-RDDADS-%2B-scopeactive-%2B-dbskip%280%29-tp2445184p2445184.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
