The following sample prints 102 (in Clipper also):
FUNCTION MAIN()
SET DELETED ON
DBCREATE( "BUGTEST", { { "CODICE", "N", 3, 0 } } )
USE BUGTEST
APPEND BLANK
REPLACE FIELD -> codice WITH 101
DELETE
APPEND BLANK
REPLACE FIELD -> codice WITH 101
APPEND BLANK
REPLACE FIELD -> codice WITH 102
INDEX ON FIELD -> codice TO BUGTEST UNIQUE
GO TOP
WHILE !EOF()
? FIELD -> codice
SKIP
ENDDO
CLOSE
INKEY( 0 )
RETURN NIL
I wonder if it should print 101 and 102.
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
