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

Добавление столбцов к гриду в On-Line   Найти похожие ветки 

← →
me2   (2003-01-29 12:33) [0]

Есть грид. Я хочу в On-Linе добавить к нему поля, а затем привязать к ним поля SQL-запроса. Делаю так:
for i := 1 to MaterialFieldCount do
grdDetails.Columns.Add;

DM.MainDM.qryGoods.Close;
DM.MainDM.qryGoods.Params[0].AsString := Node.Text;
DM.MainDM.DataSource.DataSet := DM.MainDM.qryGoods;
DM.MainDM.qryGoods.Open;

grdDetails.Columns[0].FieldName := grdDetails.DataSource.DataSet["Good_Name"];
grdDetails.Columns[1].FieldName := grdDetails.DataSource.DataSet["Serial_Num"];
grdDetails.Columns[2].FieldName := grdDetails.DataSource.DataSet["Quantity"];
grdDetails.Columns[3].FieldName := grdDetails.DataSource.DataSet["Count_Descr"];
grdDetails.Columns[4].FieldName := grdDetails.DataSource.DataSet["Price"];
grdDetails.Columns[5].FieldName := grdDetails.DataSource.DataSet["Firm_Name"];


Но в результате данные отображаются в заголовке полей таблицы. Подскажите, как мне правильно поступить?

---

← →
stone ©   (2003-01-29 12:36) [1]

В гриде вообще не устанавливай никаких столбцов. Он автоматически покажет все поля твоего датасета.

---

← →
me2   (2003-01-29 12:46) [2]

Во-первых, он автоматически показывает все столбцы DataSet-а, а для отображения они мне все не нужны; во-вторых, мне нужно настраивать ширину столбца, его заголовок и т.д.

---

← →
me2   (2003-01-29 12:50) [3]

Можно, конечно, отобразить все столбцы, затем удалить не нужные и выставить нужную ширину и заголовок, но хочеться пойти другим путем.

---

← →
stone ©   (2003-01-29 12:53) [4]

> Во-первых, он автоматически показывает все столбцы DataSet-а,
> а для отображения они мне все не нужны;

Не все, а только те у которых Visible=true

> во-вторых, мне нужно настраивать ширину столбца, его заголовок
> и т.д.

У TField этих свойств пока никто не отменял

---

← →
Delirium^.Tremens ©   (2003-01-29 12:53) [5]

Ты, наверно, забыл выйти в On-line, вот и не получается :-)

---

← →
me2   (2003-01-29 12:56) [6]

2 Delirium^.Tremens © (29.01.03 12:53)
:-)))

---

← →
Соловьев ©   (2003-01-29 12:58) [7]

2 me2
У тебя запрос всегда разное кол-во полей возвращает?

---

← →
me2   (2003-01-29 13:16) [8]

У меня в зависимости от опций срабатывают разные запросы, отображая результат в один и тот же грид.
В принципе я уже сделал то, что хотел при помощи Visible, так что хочу получить ответ только ради интереса. Если у кого-то есть время, то можете ответить. Спасибо.

---

← →
MsGuns ©   (2003-01-29 13:17) [9]

Screen.Cursor := crHourGlass;
- Выполнение запроса

- У датасета выставить нужные св-ва всем филдам (в частности, DisplayLabel и DisplayFormat для сумм, дробных чисел и т.д.

- Grid1.DataSource.DataSet := nil;
- Grid1.RebuildColumns; // Чистит все колонки
- Grid1.DataSource.DataSet := Query1;
- Grid1.RebuildColumns; // Создает все колонки
- прятанье в гриде не нужных колонок (Visible := false)
- присвоение нужных свойств заголовкам (цвет,шрифт)
- присвоение нужных значений ширины колонкам
Screen.Cursor := crDefault;

и делов-то куча;))

---

← →
me2   (2003-01-29 16:26) [10]

2 MsGuns © (29.01.03 13:17)
Я именно так уже сделал. Спасибо.

---

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

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



Память: 0.47 MB
Время: 0.015 c