Текущий архив: 2010.11.28;
Скачать: CL | DM;

Вниз

Локальная сортировка в DBGridEh   Найти похожие ветки 

← →
Matveih1 ©   (2010-09-07 14:56) [0]

Добрый день.

Как настроить локальную сортировку в DBGridEh?
Использую следующую связку
IBQuery -> DataSetDriverEh -> MemTableEh -> DataSorse -> DBGridEh

По клику по заголовкам иконка сортировки появляется. Т.е.
dghAutoSortMarking = true
TitleButton        = true

в Uses добавил EhLibIBX

Подскажите что не так? Что я забыл настроить?

---

← →
И. Павел ©   (2010-09-07 15:01) [1]

Вот кусок с сортировкой из моей программы. Первый метод нужно прицепить к OnTitleClick.

procedure TDomaForm.GridDomaTitleClick(Column: TColumnEh);
begin
 MainForm.SortTable(DSDoma, Column);
end;

procedure TMainForm.SortTable(ADODS: TADODataSet; Column: TColumnEh);
Begin
 if Column.Title.SortMarker = smUpEh
 then
 begin
   ADODS.Sort := Column.FieldName + " DESC";
   Column.Title.SortMarker := smDownEh;
 end
 else
 begin
   ADODS.Sort := Column.FieldName;
   Column.Title.SortMarker := smUpEh;
 end;

 if @ADODS.AfterScroll <> nil then ADODS.AfterScroll(nil);
end;


---

← →
Matveih1 ©   (2010-09-07 17:39) [2]

Спасибо И. Павел ©
А настройками нельзя допиться? Т.к. если не локально и использовать просто IBQuery то все происходит само по клику на колонке.

---

Страницы: 1 вся ветка

Текущий архив: 2010.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c