Top.Mail.Ru
Ответы

Delphi. Базы данных. Сортировка

Есть код:

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:Table3.indexfieldnames:='Код поставщика';
1:Table3.indexfieldnames:='Имя поставщика';
2:Table3.indexfieldnames:='Уровень доверия';
end;
end;

Он привязан к радиогрупп. По щелчку по одной из 3 - сортирует по возрастанию.

Как-нибудь можно сделать по убыванию? Что изменить в коде?

По дате
По Рейтингу
Аватар пользователя
Новичок
16лет

У ADOTable'a есть свойство sort
TableName.sort:='имя_сортируемого_поля параметр_сортировки'
параметр_сортировки:
ASC - по возрастанию
DESC - по убыванию
например
TableName.sort:='Уровень доверия DESC'

Аватар пользователя
Мудрец
16лет

Сделай запросом с order by. TTable - это отстой.

Аватар пользователя
Мастер
16лет

индекс перестроить по убыванию....

Аватар пользователя
Мудрец
16лет

В таблице индекс задай как убывающий.