Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

Не выходит создание 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 последние строки ?.....:)))


 
Шурик Ш ©   (2002-09-20 16:01) [5]

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


 
Johnmen ©   (2002-09-20 16:11) [6]

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



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

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-31653
S
2002-09-20 11:29
2002.10.10
Помогите с запросом!


14-31954
DefE
2002-09-13 14:35
2002.10.10
Condoms....


4-32080
Fog
2002-08-22 11:55
2002.10.10
Меню из SySTray


14-31968
RV
2002-09-16 10:53
2002.10.10
Чем смотреть файлы *.odf


14-31945
Николай Быков
2002-09-14 15:08
2002.10.10
Винчестер