Сортировка по нажатию на заголовок поля DBGrid

← →
Sonia © (2007-04-02 12:20) [0]

Подскажите, пожалуйста, есть ли в свойствах у DBGrid или StoredProc автоматическая сортировка по алфавиту при нажатии на заголовок поля. Или как это можно реализовать иначе?

← →
clickmaker © (2007-04-02 12:37) [1]

автоматической нет
в тексте запроса, в Stored proc можно менять Order by
Или использовать наборы данных (наследники TDataSet) со свойством IndexName

← →
Sonia © (2007-04-02 12:42) [2]

А возможно в StoreProc передавать параметром название поля и как тогда огранизовать order by?
P.S. пробовала order by Filed_name - не работает
где Filed_name - параметр типа varchar2

← →
Sonia © (2007-04-02 12:47) [3]

Или расскажите поподробнее про наборы данных

← →
stone © (2007-04-02 12:54) [4]

> Sonia © (02.04.07 12:47) [3]
> Или расскажите поподробнее про наборы данных

Ты какими компонентами доступа к данным пользуешься?

← →
Sonia © (2007-04-02 12:55) [5]

ODAC

← →
Sonia © (2007-04-02 13:19) [6]

Если говорить конкретно: OraSession, OraDataSource, OraStoredProc

← →
Reindeer Moss Eater © (2007-04-02 13:53) [7]

....
select что_то from что_то order by &что-что
....

MacroByName("что_то").Value := "нужное_имя_поля,_полученное_в_событии_клика_по_колонке_грида";

И переоткрыть.

← →
Krants © (2007-04-02 14:08) [8]

В Delphi Word есть подобная статья:
"Как заставить DBGrid сортировать данные по щелчку на заголовке столбца"

← →
palva © (2007-04-02 14:14) [9]

В TCustomADODataSet есть свойство Sort, которое позволяет менять колонки сортировки.

>palva © (02.04.07 14:14) [9]
>В TCustomADODataSet есть свойство Sort, которое позволяет менять колонки сортировки.

А что, ora<bla-bla-bla> потомки адошного датасета ?

> В Delphi Word есть подобная статья:
> "Как заставить DBGrid сортировать данные по щелчку на заголовке
> столбца"

Не нашла, кинь ссылку

← →
ASoft (2007-04-03 10:37) [12]

Попробуй так, мож, прокатит для начала...:)
...TitleClick(Column: TColumn); var s,s1: string; begin try s := <ora>.IndexFieldNames; s1 := <ora>.IndexName; <ora>.IndexFieldNames := Column.FieldName except if (s <> "") then <ora>.IndexFieldNames := s else <ora>.IndexName := s1; end; end;

Лучше не пробовать.
(А вдруг прокатит и будет девушка всю жизнь после этого мучаться)

Сортировка по нажатию на заголовок поля DBGrid Найти похожие ветки