| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не выходит создание Lookup-поля програмно [D6]
Шурик Ш © (2002-09-20 12:34:00)Что я делаю неправильно?
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);
Johnmen (2002-09-20 16:11:00) [1]И NewField.DataSet тоже нужен !!!
Шурик Ш (2002-09-20 16:01:00) [2]Нет, одну ошибку я уже нашел.
Не NewField.DataSet, а NewField.LookupDataSet
Johnmen (2002-09-20 15:59:00) [3]Типа, может поменять местами 2 последние строки ?.....:)))
Шурик Ш (2002-09-20 15:35:00) [4]Типа, Up!
Шурик Ш (2002-09-20 14:51:00) [5]
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 12:44:00) [6]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.
| |
