Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Lookup поля [D5, Paradox, ]

Help © (2001-12-20 09:37:00)
Здравствуйте !
Помогите! Не получается создать Lookup поле из программы
хотя все свойства определяю правильно. Написал такой код :
MyFil : TStringField;

tABLE1.Close;
tABLE1.Fields.Add(MyFil);
MyFil:=TStringField.Create(MyFil);
MyFil.FieldName:="Table1MyFil";
MyFil.Name:="MyFil";
MyFil.Size:=10;
MyFil.Index:=tABLE1.Fields.Count;
MyFil.FieldKind:=fkLookup;
MyFil.LookupCache:=false;
MyFil.LookupDataSet:=Table2;
MyFil.LookupKeyFields:="Kod";
MyFil.KeyFields:="KodRazm";
MyFil.LookupResultField:="Razmer";
MyFil.Lookup:=true;
MyFil.DisplayWidth:=10;
MyFil.Transliterate:=true;
MyFil.FixedChar:=false;
MyFil.Visible:=true;
MyFil.ReadOnly:=false;
MyFil.Required:=false;
MyFil.AutoGenerateValue:=arNone;
MyFil.Alignment:=taLeftJustify;
tABLE1.Open;

Пишет Access violation. Пожалуйста помогите, срочно надо!

Заранее благодарю.

Polevi (2001-12-20 17:21:00) [1]
Не надо создавать поле - нужно просто динамически настроить св-ва DBLookupCombobox - DataField, KeyField, ListField, ListSource и DataDource

Help (2001-12-20 14:47:00) [2]
Спасибо Polevi, а еще вопрос как далее использовать это поле в DBLookupComboBox, а то при простом присвоении в свойстве DataFields пишет что такого поля не существует
Заранее благодарен!

Polevi (2001-12-20 13:47:00) [3]
MyFil:=TStringField.Create(Table1);

tABLE1.Fields.Add(MyFil); - это не надо, при создании поля оно автоматически добавляется в Fields

Help (2001-12-20 13:44:00) [4]
Ошибка при открытии базы tABLE1.Open;
А по поводу MyFil:=TStringField.Create; то параметр обязателен

Romul (2001-12-20 11:02:00) [5]
А попробуй так
MyFil:=TStringField.Create;

anatoly (2001-12-20 09:50:00) [6]
на какой строке выдает ошибку?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »