Не создается "убывающий" индекс во время работы программы

← →
_Dragon © (2004-12-05 13:45) [0]

Проблема заключается в следующем: пытаюсь создать программно индекс с опцией [ixDescending], на что BDE страшно ругается следующим: "Higher level table required".Как создать такой индекс?

Код создания индекса:
procedure TForm1.Button1Click(Sender: TObject);
var
bActive, bExclusive: Boolean;
begin
bActive := Table1.Active;
bExclusive := Table1.Exclusive;
Table1.IndexDefs.Update;
with Table1 do
begin
Close;
{таблица dBASE должна быть открыта в монопольном (exclusive) режиме}
Exclusive := TRUE;
Open;
if Table1.IndexDefs.IndexOf("FNAME") <> 0 then
Table1.AddIndex("FNAME", "FNAME", []);
Close;
Exclusive := bExclusive;
Active := bActive;
end;
end;

← →
Cobalt © (2004-12-06 00:24) [1]

Попробуй пройтись по процедуре с "use debug dcu" - может, выяснишь причину ругательства БДЕ?

← →
Anatoly Podgoretsky © (2004-12-06 00:30) [2]

Уровень таблиц недостаточный. Но вопрос и код не соответствуют друг другу.

← →
_Dragon © (2004-12-06 00:38) [3]

Чего-ж делать-то тогды?

← →
sniknik © (2004-12-06 08:30) [4]

попробуй для начала в Database Desktop сделать, програмно после если получится. и посмотри хелп как там индекс создается.

А что он говорит на
create index ix_table1_fname on table1 (fname)
?

Database Desktop кстати сразу говорит уровень таблицы для которого возможны Descending индексы (предлагает апгрейд таблицы).

Не создается "убывающий" индекс во время работы программы Найти похожие ветки