John,
That fixed it. Here's what I did in case you're interested.
1. zapped all development tables with indexes.
2. copied all the cdx files into a subfolder of the data folder and renamed them .scdx (keep these files on user pc's from now on)
3. set up a loop to access every table with an index and run the following
* Form Method - indexbuild
* var - TableName holds name of table to reindex
* 1. Delete the CDX file if it exists (and the backup CDX exists)
* 2. Copy the backup CDX into the original data directory
* 3. Reindex the table
***************************************************************************
lcFullName = gcdatapath + TableName + ".DBF"
lcCdxFile = gcdatapath + TableName + ".CDX"
lcsavepath = gcdatapath + "savedcdx\"
lcsavcdxfile = lcsavepath + TableName + ".SCDX"
THISFORM.errfound = .F.
THISFORM.lblaction.CAPTION = "Reindexing table - " + ALLTRIM(TableName) ;
+ ", please wait..."
=Sleep(.5*1000)
IF FILE (lcFullName)
IF FILE (lcsavcdxfile)
IF FILE (lcCdxFile)
DELETE FILE (lcCdxFile)
ENDIF
COPY FILE (lcsavcdxfile) TO (lcCdxFile)
IF NOT THISFORM.errfound
USE (lcFullName) IN 0 EXCLUSIVE
REINDEX
USE
ENDIF
ENDIF
ENDIF
***************************************************************************
Thanks again.
Chris
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only