- Code: Select all Expand view
#include "Fwce.ch"
FUNCTION MAIN()
DBCREATE( CURDIR() + "\TMPTEST", { { "TEST", "C", 10, 0 } } )
USE ( CURDIR() + "\TMPTEST" )
APPEND BLANK
REPLACE FIELD -> test WITH "Test 1"
APPEND BLANK
REPLACE FIELD -> test WITH "Test 2"
INDEX ON FIELD -> test TO ( CURDIR() + "\TMPTEST" )
CLOSE
MSGINFO( "Done!" )
RETURN NIL
It gives "Corruption detected" error.
EMG