Сортировка в DbGridEh

[Alexeyss]

Здравствуйте.

Подскажите пожалуйста, кто-нибудь сталкивался с подобной проблемой:
Фильтруем Grid добавляем новую запись, происходит close-open adoquery после чего на гриде остается метка о сортировке, но самой сортировки естественно нет. Как решить данную проблему?
Спасибо.

[Highlander1981]

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

Здравствуйте.

Подскажите пожалуйста, кто-нибудь сталкивался с подобной проблемой:
Фильтруем Grid добавляем новую запись, происходит close-open adoquery после чего на гриде остается метка о сортировке, но самой сортировки естественно нет. Как решить данную проблему?
Спасибо.

Между close-open adoquery добавь строку:

DBGridEh1.Columns[ACol].Title.SortMarker:=smNoneEh;

АСol - номер столбца в котором остается метка...

[Alexeyss]

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

Между close-open adoquery добавь строку:

DBGridEh1.Columns[ACol].Title.SortMarker:=smNoneEh;

АСol - номер столбца в котором остается метка...

Да нет, вся проблема как раз в том, чтобы сохранить и метку грида и саму сортировку.

[Highlander1981]

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

Да нет, вся проблема как раз в том, чтобы сохранить и метку грида и саму сортировку.

Тогда не понятно. Сортировку как делаешь?
1. eсли через встроенный механизм SortLocal=true, тогда перед закрытием Close запомни свойство Sort, а после Open восстанавливай его, примерно так:

ТвояПеременная := ADOQuery1.Sort;
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery1.Sort := ТвояПеременная;

2. если через запрос SQL при событии DBGridEh1TitleBtnClick, то видимо после Open нужно вызвать это событие программно.

[Yurk@]

я эту проблему решал так:

procedure TfList.lGridTitleBtnClick(Sender: TObject; ACol: Integer; 
  Column: TColumnEh);
begin
if (Column.Title.SortMarker=smUpEh) OR (Column.Title.SortMarker=smNoneEh)
  then
  begin
  LIST_DS.DoSort([Column.FieldName],[False]);
  Column.Title.SortMarker:=smDownEh;  
  end
  else
  begin
  LIST_DS.DoSort([Column.FieldName],[True]);
  Column.Title.SortMarker:=smUpEh;
  end;
end;