Сортировка полей таблицы

← →
me2 (2003-06-05 17:13) [0]

Помогите найти решение вот какой задачи - есть DBGridEh (с возможностью отображения маркеров сортировки) в него отображаются данные SQL-запрса выбирающего инф-ю из нескольких таблиц. Как осуществить сортировку полей грида?

← →
me2 (2003-06-05 17:37) [1]

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

← →
Sandman25 © (2003-06-05 17:42) [2]

Я с DBgridEh не работал, только читал об этом где-то.
У DBgridEh должно быть событие, возникающее при нажатии на заголовок колонки. В обработчике этого события необходимо изменить запрос Query.Close; Query.Sql.Text := "select ... order by " + ... и снова выполнить его Query.Open;
Там было еще написано что-то про альтернативный способ - "order by %" и DBGridEh1.Params[0], но этого я уже не помню.

← →
Соловьев © (2003-06-05 18:02) [3]

и еще надо у поля выставить desc или asc в зависимоти от маркера сортировки грида;
...
oredr dy field1 asc; //по возрастанию
...
oredr dy field1 desc; //по убыванию

← →
me2 (2003-06-05 18:17) [4]

Можно ли передать имя поля и тип сортировки для order by с помощью входного параметра?

> me2 (05.06.03 17:37)
> Народ, ну подскажите. Очень нужна возможность сортировки
> данных в гриде

Данные сортируются не в гриде, а в подключенном к нему датасете.
Посмотри в дистрибутиве EhLib директорию DataService - там находятся модули для сортировки для различных компонентов доступа к БД.
А в общем случае надо написать обработчик события SortMarkingChanged, и в нем сортировать НД.
Вот пример, как собрать сторку ORDER BY .. в этом обработчике.
procedure TMyForm.MyDBGridEhSortMarkingChanged(Sender: TObject); var i:integer; OrderList:string; begin OrderList:=" "; for i:=0 to (Sender as TDBGridEh).SortMarkedColumns.Count-1 do begin OrderList:=OrderList+", "+(Sender as TDBGridEh).SortMarkedColumns.Items[i].FieldName; if (Sender as TDBGridEh).SortMarkedColumns.Items[i].Title.SortMarker=smDownEh then OrderList:=OrderList+" ASC" else OrderList:=OrderList+" DESC"; end; delete(OrderList,2,1); OrderList:="ORDER BY "+OrderList; ... и т.д. ... end;
В FIBPlus есть процедура для сортировки датасета без изменения ORDER BY и переоткрытия запроса, есть ли в IBX - не помню, а посмотреть сейчас не могу.

> me2 (05.06.03 18:17)

Параметра чего ? Если запроса - то нельзя.

Сортировка полей таблицы Найти похожие ветки