Реиндексация таблиц базы данных. Удобно тем, что не нужно реиндексировать каждую таблицу. Реиндексация таблиц базы данных 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 […]