com indices cdx, observo que cria o banco de dados mais não consigo abrir o cdx, ao menos acho que não cria
este é um pequeno exemplo que achei no forum, então descidi testar até agora sem exito
Function Main()
local i := 0
local aDbf := {}
aadd(adbf, {"itemcd", "c", 10, 0})
aadd(adbf, {"itemnm", "c", 40, 0})
aadd(adbf, {"rate", "n", 8, 2})
if !hb_dbcreatetemp("curItem", adbf,"DBFCDX")
Alert("Banco Nao foi criado")
return nil
endif
if select("curItem") = 0
use curItem new
endif
select curItem
FOR i := 1 To 10
append blank
curItem->itemcd := "CD_" + STRZERO( i, 7)
curItem->itemnm := "Compact Disc Number " + STR( i, 15)
curItem->rate := i
unlock
NEXT
// ja tentei de varias formas
index on itemcd tag 'cd' to 'curItem' memory
set inde to curItem memory
dbedit()
Return Nil