Добавление столбцов к гриду в 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, так что хочу получить ответ только ради интереса. Если у кого-то есть время, то можете ответить. Спасибо.

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]

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