Thanks Mark,
But now I get the error
REbuild found an error it couldn't fix in file: contact.dbf
Error #13: Alias 'tempcrs' is not found
Here is my modified code:
* Create the new structure in memory
? "Creating new structure"
select distinct * ;
from datadict ;
where datadict.d_template == template;
having datadict.field_name != "Proxy" ;
into array dbf_struc ;
order by field_ord
create cursor tempcrs from array dbf_struc
select tempcrs
use dbf() again in 0 alias tempdbf && makes cursor RW instead of RO
use
select tempdbf
go top
* Copy the data from the old table into the new structure
? "Copying old data"
if file(currdbf)
append from (currdbf) && This is where we will likely have an error
endif
* If we had an error that couldn't be fixed, Say so and exit.
if GotError <> 0
Wait Window "Rebuild found a problem it couldn't fix in file: "+upper(Currdbf) Timeout 5
wait window "Error #: "+alltrim(str(goterror))+" Message: "+alltrim(message()) Timeout 5
RETURN -1
endif
Tyler
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