Плохо работает сортировка

[Lady_olga]

Здравствуйте!
Подскажите, пожалуйста, в чем ошибка!
У меня таблица Paradox. Использую Table, a не Query. C запросом понятно, как выполнять сортировку, а вот в Table у меня сортировка плохо работаеют.
Форма, где указываются параметры сортировки имеет две RadioGroup, в первой определяется поле сортировки, а во второй возрастание и убывание.
В первой группе последний индекс убирает сортировку вообще (то есть как было первоначально все)

Сортировку делала по примеру из книжки:

Case RadioGroup1.ItemIndex of
0: Form6.Table1.IndexName:='indZak';
1: Form6.Table1.IndexName:='indModel';
2: Form6.Table1.IndexName:='indZavkkm';
3: Form6.Table1.IndexName:='';
end;

Case RadioGroup2.ItemIndex of
0: Form6.Table1.IndexDefs[Form6.Table1.IndexDefs.IndexOf(Form6.Table1.IndexName)].Options:=Form6.Table1.IndexDefs[Form6.Table1.IndexDefs.IndexOf(Form6.Table1.IndexName)].Options+[ixDescending];

1: Form6.Table1.IndexDefs[Form6.Table1.IndexDefs.IndexOf(Form6.Table1.IndexName)].Options:=Form6.Table1.IndexDefs[Form6.Table1.IndexDefs.IndexOf(Form6.Table1.IndexName)].Options-[ixDescending];
end;

Но поля сортируются как попало, как будто возрастание и убывание меняются местами периодически (то нормально, то наоборот), а то вообще не работает сортировка.

В чем моя ошибка?
Заранее спасибо :-)

[Lady_olga]

Неужели никто не может подсказать??? Пожалуйста!!! Очень надо!

[D-mon]

А почему бы Вам не использовать Query, зачем такие сложности, можно ж ведь по-другому.
Мой совет: не зацикливайтесь на одном, решений одной и той же задачи есть множество, пользуйтесь этим.

[Stilet]

В чем моя ошибка?

В выборе Парадокса. Очень некузявая СУБД, сам сталкивался с его плохими индексами.
Если не стеснит прикрепи сюда проект с базой я могу посмотреть конкретнее.

[Lady_olga]

Сообщение от D-mon

А почему бы Вам не использовать Query, зачем такие сложности, можно ж ведь по-другому.
Мой совет: не зацикливайтесь на одном, решений одной и той же задачи есть множество, пользуйтесь этим.

Я понимаю, что с Query было бы намного проще, но проблема такова, что все остальные функции приложения, уже работают с Table.
Переход на Query сводит на нет всю проделанную работу + уже нет времени.

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

Буду искать выходы.

[D-mon]

А автозаменой Table1 -> Query1... Должно покатить...

[Avalonix]

хм. А разве нельзя одновременно в проекте использовать и Table и Query??

[Stilet]

Слушай, Оля, а чего ты не пользуешся IndexFieldNames?

[Lady_olga]

При использовании IndexFiledNames в таком виде:

Case RadioGroup1.ItemIndex of
0: Form6.Table1.IndexFieldNames:='Zak';
1: Form6.Table1.IndexFieldNames:='Model_kkm';
2: Form6.Table1.IndexFieldNames:='Zav_kkm';
3: Form6.Table1.IndexFieldNames:='';
end;

Работает только сортировка по возрастанию по полю Zak

[Lady_olga]

Сообщение от Avalonix

хм. А разве нельзя одновременно в проекте использовать и Table и Query??

Использовать можно, и в некоторых модулях программы я так и делаю. Но вот в модуле, где нужно сделать сортировку (он у меня большой) уже реализовано добавление, редактирование и т.д. через Table. Времени нету уже переделывать все на Query