| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Локальная сортировка в DBGridEh

Matveih1 ©   (2010-09-07 14:56:00) 

Добрый день.

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

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

в Uses добавил EhLibIBX

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

---

Matveih1   (2010-09-07 17:39:00) [1]

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

---

И. Павел   (2010-09-07 15:01:00) [2]

Вот кусок с сортировкой из моей программы. Первый метод нужно прицепить к 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;


---

Наверх