Yakano
Try this:
REQUEST HB_MEMIO
REQUEST DBFCDX
PROCEDURE MAIN
LOCAL aStr := {}
AADD( aStr, { "COD" , "C" , 10 , 0 } )
AADD( aStr, { "NAME" , "C" , 100 , 0 } )
AADD( aStr, { "SALARY" , "N" , 12 , 2 } )
dbCreate( "teste", aStr )
//---Begin
use teste via "DBFCDX"
index on name to teste desc
aStruct := dbStruct()
close
nSeg := Int(Seconds()*100)
cFileDbf := "mem:TMP"+Right(StrZero(nSeg),5)+".DBF"
dbCreate(cFileDbf, aStruct,"DBFCDX",.T.)
//cFileCdx := "mem:TMP"+Right(StrZero(nSeg+1),5)+".CDX"
FOR X := 1 to 100
Append Blank
REPLACE COD WITH STRZERO(x,3)
REPLACE NAME WITH "USER " + FIELD->COD
REPLACE SALARY WITH 100+X
NEXT
go top
BROWSE()
You must call REQUEST HB_MEMIO
I don't understand cFileCdx