Сортировка столбца в алфавитном порядке

[Anastasia12.02.]

Добрый день!
Подскажите, пожалуйста, как сортировать данные в таблице при нажатии на заголовок столбца?
При первом нажатии на заголовок должно отсортироваться в алфавитном порядке от А к Я.
При втором нажатии на заголовок должно отсортироваться от Я к А.
До этого делала так. На событие OnTitleClick писала следующий код:

Table1.IndexFieldNames:= Column.FieldName;

Сортирует только в одном направлении от А к Я.
И еще, как сделать также для Adoquery?

[Anastasia12.02.]

Никто что ли не знает????

[Serge_Bliznykov]

для начала попробуйте такой код:

  Table1.IndexFieldNames:= Column.FieldName+' DESC';

взято отсюда:

Сортировка в обе стороны при повторном нажатии на титл.
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;

И еще, как сделать также для Adoquery?

Точно так же. Но ещё в ADOQuery можно в запросе прописывать ORDER BY ..
это намного эффективней (сортировка осуществляется СУБД), но потребует переоткрытия набора данных со всеми вытекающими отсюда последствиями...

[Anastasia12.02.]

Serge_Bliznykov, спасибо! Выручили!

[Valentina10121991]

взято отсюда:

А у меня почему то выходит ошибка ADOQuery1: field 'Avtor ' not found

[Serge_Bliznykov]

Валентина, у нас принято для новых вопросов создавать новую тему!

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

А у меня почему то выходит ошибка ADOQuery1: field 'Avtor ' not found

перевожу: "поле Avtor не найдено"

убедитесь, что указанное Вами поле есть в датасете.

[Valentina10121991]

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

убедитесь, что указанное Вами поле есть в датасете.

Но когда я делала так:

ADOTable1_books.IndexFieldNames:=Column.FieldName;

все работало

[Serge_Bliznykov]

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

Но когда я делала так:

ADOTable1_books.IndexFieldNames:=Column.FieldName;

все работало

ну, ответ очевиден.
значит в датасете ADOTable1_books есть поле Avtor
а в датасете в ADOQuery1 нет поля Avtor

проверяйте, с какой таблицой связан ADOTable1_books и какой запрос в ADOQuery1

[Valentina10121991]

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

проверяйте, с какой таблицой связан ADOTable1_books и какой запрос в ADOQuery1

Здесь тоже уже разобралась