FiveTech Software tech support forums

Hi,

Here I have a little example that is not working.
The program doens't open the countu.tmp database.
Can anyone tell me why. It is working in FW + clipper 5.2e

Code: Select all  Expand view

#INCLUDE "fivewin.CH"
REQUEST DBFCDX
FUNCTION test()
   local vstruct:={}
   RDDSETDEFAULT("DBFCDX")
   dbstructuur:={}
   aadd(vstruct,{'NTWKNUM','C',2,0})
   aadd(vstruct,{'NODENUM','C',2,0})
   aadd(vstruct,{'NODETYP','C',5,0})
   aadd(vstruct,{'NTWKTYP' ,'C',5,0})
   aadd(vstruct,{'POINTS' ,'N',7,0})
   dbcreate('count.tmp',vstruct)
   use ('count.tmp') new
   index on str(val(ntwknum),2) to ('countu') unique
   copy to ('countu.tmp')
   use countu.tmp new
   go top
RETURN nil


The error occur in the last line 'go top'

Thanks
Marc

Marc,

Try to place a SysRefresh() call in between, as it may be still open:

copy to ('countu.tmp')
SysRefresh()
use countu.tmp new

Hi,

The problem is solved by replacing

Code: Select all  Expand view

index on str(val(ntwknum),2) to ('countu') unique

with

Code: Select all  Expand view

index on str(val(ntwknum),2) tag ('countu') unique

In FW + six-driver the first line also works fine.

Regards,
Marc

Marc,

What was the replacement ? The two lines are the same

Antonio,

In the first line is INDEX ON ... TO ... and the second is INDEX ON ... TAG ...

Marc

ok, thanks