Не выходит создание Lookup-поля програмно

← →
Шурик Ш © (2002-09-20 12:34) [0]

Что я делаю неправильно?
NewField := TField.Create(ListQuery); NewField.FieldName := "Look"; NewField.SetFieldType(ftString); NewField.Lookup := True; NewField.KeyFields := "PTR_ID"; NewField.DataSet := Table1; NewField.LookupKeyFields := "ID"; NewField.LookupResultField := "NAME"; ListQuery.Fields.Add(NewField);

← →
ЮЮ © (2002-09-20 12:44) [1]

NewField := TStringField.Create(ListQuery);

procedure SetFieldType(Value: TFieldType);

Description

As implemented in TField, SetFieldType does nothing. Descendant classes override SetFieldType to set the DataType for the field component. SetFieldType is useful for derived classes that can support more than one underlying data type. For example, a TBlobField may support ftBlob, ftFmtMemo, ftParadoxOle, ftDBaseOle, or ftTypedBinary.

← →
Шурик Ш © (2002-09-20 14:51) [2]

NewField := TStringField.Create(ListQuery); NewField.FieldName := "Look"; NewField.Lookup := True; NewField.KeyFields := "PTR_ID"; NewField.DataSet := Table1; NewField.LookupKeyFields := "ID"; NewField.LookupResultField := "NAME"; NewField.DataSet.Active := True; ListQuery.Fields.Add(NewField);
На строке NewField.DataSet.Active := True программа останавливается с сообщением "Lookup information for field "Look" is incomplete". А где здесь неполная информация я не знаю. Вроде в диалоге создания Lookup-поля в режиме дизайна нет больше полей, кроме поля Component, а что это я не знаю.

← →
Шурик Ш © (2002-09-20 15:35) [3]

Типа, Up!

← →
Johnmen © (2002-09-20 15:59) [4]

Типа, может поменять местами 2 последние строки ?.....:)))

Нет, одну ошибку я уже нашел.
Не NewField.DataSet, а NewField.LookupDataSet

И NewField.DataSet тоже нужен !!!

Не выходит создание Lookup-поля програмно Найти похожие ветки