Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Lookup поля 


Help   (2001-12-20 09:37) [0]

Здравствуйте !
Помогите! Не получается создать 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. Пожалуйста помогите, срочно надо!

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



anatoly   (2001-12-20 09:50) [1]

на какой строке выдает ошибку?



Romul   (2001-12-20 11:02) [2]

А попробуй так
MyFil:=TStringField.Create;



Help   (2001-12-20 13:44) [3]

Ошибка при открытии базы tABLE1.Open;
А по поводу MyFil:=TStringField.Create; то параметр обязателен



Polevi   (2001-12-20 13:47) [4]

MyFil:=TStringField.Create(Table1);

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



Help   (2001-12-20 14:47) [5]

Спасибо Polevi, а еще вопрос как далее использовать это поле в DBLookupComboBox, а то при простом присвоении в свойстве DataFields пишет что такого поля не существует
Заранее благодарен!



Polevi   (2001-12-20 17:21) [6]

Не надо создавать поле - нужно просто динамически настроить св-ва DBLookupCombobox - DataField, KeyField, ListField, ListSource и DataDource




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
3-75496           Kirill                2001-12-18 17:32  2002.01.24  
ADO и новая запись


1-75611           MetroGnome            2002-01-04 02:25  2002.01.24  
<B>Как скрыть какую ни будь ПАПКУ С ФАЙЛАМИ!</B>


3-75465           Sergey Karagodin      2001-12-19 14:25  2002.01.24  
Возвращаю результат запроса (ADO+SQL7)


1-75608           Трынкин Сергей        2002-01-08 10:52  2002.01.24  
Подскажите пожалуйста где взять ADOExpress Update Pack 1


3-75488           NLO                   2001-12-20 14:23  2002.01.24  
Системные таблицы IB 6