[littlePCgenius]

Доброго времени суток, подскажите плиз как переиндексировать DBF. Действие привязать к кнопке меню.

[Страдалецъ]

Вот что нам сообщают по этому вопросу вражеские источники:

Код:

if DbiRegenIndexes( Table1.Handle ) = DBIERR_NONE then 
     ShowMessage( 'OK' ) 
   else 
     ShowMessage( 'NOPE' ); 

[littlePCgenius]

Сообщение от Страдалецъ

Вот что нам сообщают по этому вопросу вражеские источники:

Код:

if DbiRegenIndexes( Table1.Handle ) = DBIERR_NONE then 
     ShowMessage( 'OK' ) 
   else 
     ShowMessage( 'NOPE' ); 

сделала немного иначе:

Код:

DataModule1.OKSMDataSet.Close;
DataModule1.OKSMDataSet.Exclusive:=true;
DataModule1.OKSMDataSet.Open;
DataModule1.OKSMDataSet.Reindex;