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

← →
Poluprovodnik (2004-07-26 08:11) [0]

Посмотрел как сделан сабж в демке к компоненте EhLib, а именно при клике по колонке сортируются данные. Пробовал у себя реализовать, - что-то не получается. Может ли это зависеть от типа БД (в демке используются Парадоксовские базы, а у меня Dbf)? Подскажите плиз что не так делаю? Вот код как делаю:

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh);
begin
case Column.Title.SortMarker of
smNoneEh: Column.Title.SortMarker := smDownEh;
smDownEh: Column.Title.SortMarker := smUpEh;
smUpEh: Column.Title.SortMarker := smNoneEh;
end;
end;

← →
Sandman25 © (2004-07-26 09:12) [1]

Это не изменит сортировку, а только покажет индикаторы в заголовках.

← →
Johnmen © (2004-07-26 09:15) [2]

Т.е. ты считаешь, что перерисовка изображения маркера сортировки как-то влияет на саму сортировку данных ?
:)))))))))))))))))
И не надо врать, что в демке именно так сортируютя данные !

← →
Соловьев © (2004-07-26 10:25) [3]

> Может ли это зависеть от типа БД (в демке используются Парадоксовские
> базы, а у меня Dbf)?

доступ к ним через БДЕ?
Unit DataSet Local sorting Server sorting Local filtering Server filtering EhLibBDE TQuery, TTable N Y Y Y EhLibADO TADOQuery, Y Y Y Y TADODataSet EhLibCDS TClientDataSet Y Y Y Y EhLibDBX TSQLQuery, TSQLDataSet N Y N Y EhLibIBX TIBQuery, TIBDataSet N Y Y Y EhLib Software

← →
Euronymous (2004-07-26 10:37) [4]

ищешь не там...
посмотри что написано на OnSortMarkingChanged...

← →
Poluprovodnik (2004-07-28 05:00) [5]

Всем спасибо, разобрался. Теперь сортирует :).
Но появилась новая проблемма :(. При включенной сортировке начинаются жуткие тормоза при прокрутке таблицы и при поиске по первым символам в гриде. Дело в том, что я не использую БДЕ, а вместо компоненты Table использую компоненту tDBF. Для сортировки использую индексы. Может что-нибудь можно сделать, кроме отката на стандартный грид или отказа от сортировки?

← →
Сергей Г (2004-07-30 19:37) [6]

в обраьотке DBGridEh1TitleBtnClick
добавь смену индекса:

case Column.Title.SortMarker of
smNoneEh: Table1.Index := "";
smDownEh: Table1.Index :="Index1";
smUpEh: Table1.Index:="Index2";
end;

Сортировка в DBGridEh Найти похожие ветки