ПРОБЛЕМа С ИНДЕКСАМИ

← →
PeterBuild (2006-09-24 21:31) [0]

Помогите плиз, уже не первый день я бьюсь над проблемой сортировки!!! Все делаю правильно но когда я использую индекс появляется ерор : Invalid index\tag name. Index is out of date. Index ByCount. событие добавление индекса повешено на щелчок на гриде, открываю в монопольном режиме и невыходит. Читал что это какой то глюк, но не могу понять и провести паралель к моему случаю

← →
sniknik © (2006-09-24 21:35) [1]

> Все делаю правильно
попробуй сделать неправильно...

← →
PeterBuild (2006-09-24 21:41) [2]

Ну подскажите хоть в каком районе проблема...

← →
Gydvin © (2006-09-24 21:47) [3]

а проблема в отсутствие кода в твоем посте

← →
PeterBuild (2006-09-24 21:58) [4]

procedure TfrmMain.BaseGridTitleBtnClick(Sender: TObject; ACol: Integer;
Field: TField);
var
bActive, bExclusive: Boolean;
begin
bActive := DM.tblBase.Active;
bExclusive := DM.tblBase.Exclusive;
DM.tblBase.IndexDefs.Update;
with DM.tblBase do
begin
Close;
Exclusive := TRUE;
Open;
if ACol = 0 then
begin
if IndexDefs.IndexOf("FULLNAME") <> 0 then
AddIndex("FULLNAME", "NAME;NICK", []);
end;
if ACol = 1 then
begin
if IndexDefs.IndexOf("ByCount") <> 0 then
AddIndex("ByCount", "COUNT", []);
end;
if ACol = 2 then
begin
if IndexDefs.IndexOf("ByFond") <> 0 then
AddIndex("ByFond", "FOND", []);
end;
Close;
Exclusive := bExclusive;
Active := bActive;
TStringGrid(frmMain.BaseGrid).DefaultRowHeight := 25;
TStringGrid(frmMain.grdFirstClient).DefaultRowHeight := 20;
end;
end;
И в Date Base DeskTop добавленны соответствующие индексы!!

← →
Desdechado © (2006-09-24 22:47) [5]

> Index is out of date
Такое обычно, если не стоит галка Maintained у индекса

← →
PeterBuild (2006-09-24 23:05) [6]

Поставил Maintained теперь пишет что Invalid index\tag name

← →
PeterBuild © (2006-09-24 23:55) [7]

Все вроде бы верно....

Почему именно проблема с именем?

← →
ASoft (2006-09-25 05:40) [9]

> PeterBuild (24.09.06 23:05) [6]

Ругается на щелчке по любой колонке таблицы?

> IndexDefs.IndexOf() <> 0
F1
If Items contains no definition with the specified Name, the return value is -1.

при ненайденности индекса условие будет истинно (но судя по всему логика в процедуре не та...)

> ... AddIndex(...

F1 -
Creates a new index for the table. ....

> И в Date Base DeskTop добавленны соответствующие индексы!!
?
уже добавлены, и еще добавляеш.

и это называется "все правильно делаю"?

ПРОБЛЕМа С ИНДЕКСАМИ Найти похожие ветки