FoxPro/Visual FoxPro - REINDEXAR TABLAS

Alguien me puede ayudar y decirme como puedo saber para antes de abrir una tabla saber si los indices están bien o están estropeados. Me hace mucha falta por favor si podeis contestarme rapidamente lo agradezco. GRACIAS

NO ES NECESARIO QUE TE ENTERES DE SI ESTAS BIEN YA QUE EN UN SEGUNDO SE PUEDEN DAÑAR POR CUALQUIER MOTIVO SOLO CORRE LA INSTRUCCION DE REINDEX A LA TABLA Y TE DARAS CUENTA QUE PASA SI ANTES DE REIDEXAR PUEDES VALIDA LA BASE DE DATOS SERIA DE MEJOR UTILIDAD..

OPEN DATA BASE Y EL NOMBRE DE LA BASE DE DATOS
VALIDATE DATA BASE

LUEGO USE O SELE SEGUN EL CASO Y REINDEX RECUERDA QUE SOLO SE DEBEN DE REALIZAR CON LAS TABLAS EN EXCLUSIVE ON

Las siguientes líneas de código te permiten chequear si una dbf tiene problemas de corrupción. En la mayoría de los casos esto redunda en un problema de índice corrupto:

USE mytable IN 0 EXCLU
SELE mytable

SET COMPATIBLE ON
IF RECCOUNT() # 0
IF (HEADER()+RECSIZE()*RECCOUNT()+1) # FSIZE(DBF())
wait wind "La tabla está corrupta"
ELSE
wait wind "La tabla está ok "
ENDIF
ENDIF
SET COMPATIBLE OFF

Nota: el SET COMPATIBLE hace que la función FSIZE() devuelva el tamaño del archivo.

Hola mira soy novato en esto me estoy creando mi base de datos telefónica solo tiene varias tablas lo suficiente para meter unos teléfonos y poco mas , he estado mirando el tema de reindexar y demás supongo que este tema es para que la base de datos este mas estabe en su funcionamiento ya que he notado también cosas raras en las tablas , tu ejemplo me ha gustado,, me gustaría me dijeses si este código se pone en el from en el evento ini , load o en un botón ..

lo he probado en un botón y me dice q las tablas están ok , podrias también poner lo del exclusive de mejor manera q lo entienda con un ejemplo mas claro muchas gracias de verdad ..