by Maurizio » Tue Feb 12, 2008 4:12 pm
With the xHArbour link with FW 8.02 I have this error
Error DBFCDX/1012 Corruption detected: TEST1.cdx
#include "Fivewin.ch"
Function MAin()
Local aDbf := {}
REQUEST DBFCDX
if ! file("TEST1.DBF")
aDbf := {}
AADD (aDbf, {"TEST", "C", 1 , 0 })
AADD (aDbf, {"LOGI", "L", 1 , 0 })
dbcreate("TEST1" , aDbf,"DBFCDX")
endif
if ! file("TEST1.CDX")
use ("TEST1") via "DBFCDX"
index on field->TEST tag I_TEST to ("TEST1.CDX") ;
FOR field->LOGI == .T.
USE
use ("TEST1") via "DBFCDX"
browse()
USE
endif
Return nil