Как добавить все столбцы в TDBGrid Run-Time? Часть 2

← →
anonymous (2007-11-11 07:14) [0]

Удалено модератором
Примечание: восстановление закрытой ветки

← →
Виталий Панасенко(дом) (2007-11-11 09:21) [1]

Я уже писал о магическом св-ве DBGrid - > Colum
ns

← →
anonymous (2007-11-11 10:31) [2]

> Я уже писал о магическом св-ве DBGrid - > Columns

Вот так работает:
// with TIntegerField.Create(table_stgroup) do // begin // FieldName := "idProfession"; // FieldKind := fkData; // DataSet := table_stgroup; // Name := FieldName; // Visible := False; // end; // // with TStringField.Create(table_stgroup) d // begin // FieldName := "Profession"; // FieldKind := fkLookup; // DataSet := table_stgroup; // Name := Dataset.Name + FieldName; // KeyFields := "idProfession"; // LookupDataSet := table_profession; // LookupKeyFields := "id"; // LookupResultField := "name"; // end; // grid.Columns.Add.FieldName := "order_num";

Но мне так не надо, а вот так уже не работает:
with TIntegerField.Create(table_stgroup) do begin FieldName := "idProfession"; FieldKind := fkData; DataSet := table_stgroup; Name := FieldName; Visible := False; end; with TStringField.Create(table_stgroup) do begin FieldName := "Profession"; FieldKind := fkLookup; DataSet := table_stgroup; Name := Dataset.Name + FieldName; KeyFields := "idProfession"; LookupDataSet := table_profession; LookupKeyFields := "id"; LookupResultField := "name"; end; grid.Columns.Add.FieldName := "order_num";

Точнее столбец добавляется, но он пустой. Или здесь мне помогут какие-то более магические методы и свойства grid.Columns?

← →
sniknik © (2007-11-11 10:33) [3]

Удалено модератором
Примечание: хотя, сорри, предыдущая ветка была закрыта изза спама в ней.

← →
Виталий Панасенко © (2007-11-12 10:19) [4]

> anonymous (11.11.07 10:31) [2]

> Точнее столбец добавляется, но он пустой. Или здесь мне
> помогут какие-то более магические методы и свойства grid.
> Columns?

ЗвИздежь и провокация!

← →
Виталий Панасенко © (2007-11-12 11:34) [5]

Что у тебя может быть, ты поле создаешь, но ссылка на него не остается нигде. Обьяви переменную типа StringField :TStringField, создай его и уже в НД добавляй
DataSet.Field.Add(StringField);
далее в сетку
grid.Columns.Add.FieldName := "order_num";

← →
anonymous (2007-11-17 08:10) [6]

> Обьяви переменную типа StringField :TStringField, создай
> его и уже в НД добавляй
> DataSet.Field.Add(StringField);
> далее в сетку
> grid.Columns.Add.FieldName := "order_num";

Не работает! Все равно поле пустое. И совсем не звиздешь и провокация!

← →
Виталий Панасенко(дом) (2007-11-17 10:31) [7]

Не могу сказать, в чем проблема... Сам пробовал- все работает...

Как добавить все столбцы в TDBGrid Run-Time? Часть 2 Найти похожие ветки