Delphi. Базы данных. Сортировка
Есть код:
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:Table3.indexfieldnames:='Код поставщика';
1:Table3.indexfieldnames:='Имя поставщика';
2:Table3.indexfieldnames:='Уровень доверия';
end;
end;
Он привязан к радиогрупп. По щелчку по одной из 3 - сортирует по возрастанию.
Как-нибудь можно сделать по убыванию? Что изменить в коде?
По дате
По Рейтингу
У ADOTable'a есть свойство sort
TableName.sort:='имя_сортируемого_поля параметр_сортировки'
параметр_сортировки:
ASC - по возрастанию
DESC - по убыванию
например
TableName.sort:='Уровень доверия DESC'
Сделай запросом с order by. TTable - это отстой.
индекс перестроить по убыванию....
В таблице индекс задай как убывающий.