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'
procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:Table3.indexfieldnames:='Код поставщика';
1:Table3.indexfieldnames:='Имя поставщика';
2:Table3.indexfieldnames:='Уровень доверия';
end;
end;
Он привязан к радиогрупп. По щелчку по одной из 3 - сортирует по возрастанию.
Как-нибудь можно сделать по убыванию? Что изменить в коде?