В программе есть функция переиндексации базы. На всех базах индексируется относительно быстро, но на одной просто ОЧЕНЬ медленно (но индексирует, но ОЧЕНЬ медленно). Вопрос: с чем это м.б. связано?

Так если бы.... В процедуре переиндексации есть:
REMOVE TABLE <имя индексируемой таблицы> - вот в этой строчке и тормозит...

А не я автор, а шишки мне достаются... Спасибо за ссылку... будет время перепишу ... но все же не понятно почему в этот момент тормозит...

Такого в коде точно нет... но без remove вообще не работает(((... попробую как нить переписать

Код :

SELECT tables_
SCAN
kod_=tables_.kod
ntable=ALLTRIM(tables_.ntable)
SET SAFETY OFF

IF FILE(pathtod+Alltrim(ntable)+'.dbf')=.T.
IF INDBC(ntable,"TABLE")
REMOVE TABLE &ntable && !!!!!!тут тормозит
ENDIF
IF File(pathtod+Alltrim(ntable)+'.cdx')=.T.
DELETE FILE pathtod+ALLTRIM(ntable)+'.cdx' && óäàëåíèå èíäåêñíîãî ôàéëà
ENDIF

SELECT tables_
use_tabl='use '+ALLTRIM(pathtod)+ALLTRIM(ntable)+' alias ntables exclusive in 0'

ON Error a=''
&use_tabl
ON Error
IF !USED('ntables')
&use_tabl
ENDIF

SELECT index_table
SCAN FOR kod=tables_.kod
nkey=ALLTRIM(index_table.KEY)
ntag=ALLTRIM(index_table.TAG)+IIF(index_table.TYPE='C' or index_table.TYPE='P',' CANDIDATE','')

IF index_table.Type='C' Or index_table.Type='P'
Select Count(&nkey)As kcodes,&nkey as codes From ntables Group By &nkey Into Cursor cur1
Select * From cur1 Where kcodes>1 Into Cursor cur2

IF RECCOUNT('cur2')<>0
MESSAGEBOX('Ошибка!')
***
ELSE
SELECT ntables
INDEX ON &nkey TAG &ntag
ENDIF
ELSE
SELECT ntables
INDEX ON &nkey TAG &ntag
ENDIF

SELECT index_table
ENDSCAN

SELECT ntables
use
ntable=ALLTRIM(ntable)+'.dbf'
addtabl='ADD TABLE '+ALLTRIM(pathtod)+ALLTRIM(tables_.ntable)+'.dbf'
&addtabl
ELSE
****
ENDIF
SET SAFETY On
ENDSCAN


tables_ - таблица, где хранятся имена таблиц базы
index_table - тут хранятся индексы для таблиц базы

а база рашьне открывается exclusive