Object: | frmDatabaseUtils |
*-- (c) Microsoft Corporation 1995 LOCAL laTables[1], ; i CLOSE TABLES FOR i = 1 to ADBOBJECTS(laTables, "Table") IF !EMPTY(laTables[i]) IF !USED(laTables[i]) USE (laTables[i]) IN 0 EXCL SELECT (laTables[i]) WAIT WINDOW NOWAIT REINDEXING_LOC + UPPER(ALLTRIM(laTables[i])) + ".DBF" REINDEX ENDIF ENDIF ENDFOR CLOSE TABLES WAIT WINDOW NOWAIT DONE_LOC