Скачать: CL | DM;

Сортировка по нажатию на заголовок поля 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, которое позволяет менять колонки сортировки.

---

← →
MsGuns ©   (2007-04-02 23:12) [10]

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

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

---

← →
Sonia ©   (2007-04-03 09:32) [11]

> В 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;

---

← →
Reindeer Moss Eater ©   (2007-04-03 10:41) [13]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.042 c