rebuildindexes Method
Object: frmDatabaseUtils
Expand/Collapse source code of procedure rebuildindexes Source Code
*-- (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