Создание поля подстановки

[Doser]

Вот код

fld:=TStringField.Create(nil);
fld.Size:=50;
fld.DisplayLabel:='t1';
fld.DisplayWidth:=50;
fld.FieldKind:=fkLookup;
fld.FieldName:='t1';
fld.KeyFields:='Type';
fld.LookupDataSet:=ADOTable2;
fld.LookupKeyFields:='id';
fld.LookupResultField:='name';
fld.Name:='ADOTable1t1';
fld.Lookup:=true;
ADOTable1.Active:=False;
fld.DataSet:=ADOTable1;
ADOTable1.Active:=True;
Column:=DBGrid1.Columns.Add;
Column.Field:=fld;
Column.Alignment:=taLeftJustify;
Column.Title.Caption:='Test1';
Column.Width:=50;

Вылетает с ошибкой
'ADOTable1: Field 'Type' not found'.

Если перед этим в диспетчере объектов выбрать ADOTable1 -> Fields -> Add all fields то все будет работать как надо, но такой вариант не подходит.

Помогите кто что знает

[mihali4]

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

[Doser]

Нет, проблема не в этом.

[evg_m]

Если перед этим в диспетчере объектов выбрать ADOTable1 -> Fields -> Add all fields то все будет работать

естественно теперь ADOTable1 знает какие поля он должен получать,
следовательно надо добавить что-то вроде
ADOTable1.Fields.Add(...)
для нужных полей

[Doser]

Так то оно так. В таком случае надо создавать еще поле куда будет осуществляться подстановка. Но самое то что интересное ведь эти все нужные мне поля создаются автоматически при активации adotable! Например если убрать добавление этого нового поля и сделать нечто типа ADOTable1.FieldByName('Type') то это поле будет найдено! Никакой ошибки при этом не возникает. Хотя мы просто активировали таблицу и не добавляли поля. Следовательно они добавляются сами где то внутри компонента. Логично? Но когда пытаемся добавить наше созданное поле получаем ошибку что будто нет такого поля. Я могу тут еще предположить что просто на этапе этом поля еще не добавлены. Но с другой стороны если мы до этого создадим поле и потом такое же поле добавится автоматически не будет ли у нас дубликатов.
Как то я запутался со всем этим%)

[mihali4]

Сообщение от Doser

Вот код

...
fld.KeyFields:='Type';
...
fld.DataSet:=ADOTable1;
...

Вылетает с ошибкой
'ADOTable1: Field 'Type' not found'.

Если перед этим в диспетчере объектов выбрать ADOTable1 -> Fields -> Add all fields то все будет работать как надо, но такой вариант не подходит.

Ну вот, недаром говорят - "утро вечера мудренее"...
Поменяйте местами эти две строки.
Сначала-то нужно датасет определить, а уж потом к его полям обращаться, не так ли ?

[Doser]

Все логично, тока поменяв вылетает с ошибкой. Буду разбираться дальше

[Doser]

сотворилось вот что

fld:=TStringField.Create(nil);
fld.Size:=25;
fld.FieldName:='type';//изменилось тут 
fld.DisplayLabel:='';
fld.FieldKind:=fkLookup;
fld.FieldName:='type';
fld.LookupDataSet:=ADOTable2;
fld.LookupKeyFields:='id';
fld.LookupResultField:='name';
fld.KeyFields:='Type';
ADOTable1.Active:=False;
fld.DataSet:=ADOTable1;
ADOTable1.Active:=True;
fld.Lookup:=true;
Column:=DBGrid1.Columns.Add;
Column.Field:=fld;
fld.DisplayWidth:=25;
Column.Width:=25;
Column.Title.Caption:='t1';
Column.Alignment:=taLeftJustify;
ADOTable2.Active:=True;
ADOTable1.Active:=True;

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

[Doser]

Походу все же для этого дела необходимо предварительно добавлять поле на которое мы ссылаемся в создаваемом поле. По другому никак не получается.

fld:=TStringField.Create(nil);
fld.Size:=25;
fld.DisplayLabel:='';
fld.FieldKind:=fkLookup;
fld.FieldName:='t1';
fld.LookupDataSet:=ADOTable2;
fld.LookupKeyFields:='id';
fld.LookupResultField:='name';
fld.KeyFields:='Type';
fld.Lookup:=true;

fld2:=TIntegerField.Create(nil);
fld2.FieldKind:=fkData;
fld2.Name:='t2';
fld2.FieldName:='Type';

ADOTable1.Active:=False;
fld2.DataSet:=ADOTable1;
fld.DataSet:=ADOTable1;

ADOTable1.Active:=True;
Column:=DBGrid1.Columns.Add;
Column.FieldName:='t1';
fld.DisplayWidth:=25;
Column.Width:=25;
Column.Title.Caption:='type';
Column.Alignment:=taLeftJustify;

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