Сортировка в обе стороны при повторном нажатии на заголовок

Posted by Chas under Delphi

Подскажите, пожалуйста, как сортировать данные в таблице при нажатии на заголовок столбца?
При первом нажатии на заголовок должно отсортироваться в алфавитном порядке от А к Я.
При втором нажатии на заголовок должно отсортироваться от Я к А.

Serge_Bliznykov

Сортировка в обе стороны при повторном нажатии на титл.

procedure TForml.DBGrid1TitleClick(Column: TColumn);

var

 ss : string;

begin

  if adoquery1.FieldByName(Column.FieldName).Tag=0 then

   begin

    ss := ' ASC';

    adoquery1.FieldByName(Column.FieldName).Tag := 1;

   end

  else

   begin

    ss := ' DESC';

    adoquery1.FieldByName(Column.FieldName).Tag := 0;

   end;

 adoquery1.Sort:=Column.FieldName + ss;

end;

тема на форуме

Похожие статьи

• Как в dbgrid сгруппировать повторяющиеся строки в таблице
• Исходник объединение двух таблиц и фильтрация по полю таблицы
• Как перебрать все значения в колонке DbGrid
• Как выполнил запрос в бд и присвоить значение запроса в edit?
• MySQL запрос. Проблема в выборе по максимальной дате
• Сортировка кучей на языке Си
• Сортировка имен файлов в TStringList
• Распределить слова в алфавитном порядке
• Обновление таблицы от версии к версии. Как?
• Как организовать поиск по 2 полям с помощью like?