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

Вниз

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

 
DS   (2001-12-19 17:35) [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. Пожалуйста помогите, срочно надо!

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


 
Kouzmine ©   (2001-12-21 12:29) [1]

А может - tABLE1.Fields.Add(TStringField.Create(MyFil);


 
DmitryA ©   (2001-12-21 20:12) [2]

Ладно, че рассуждать? Идти за пивом или нет?!

// ...где-то в начале объявлений...
var LookupField: TStringField; // или поле другого типа

// ...где-то в теле программы...
Table.Close();

// для прля типа TStringField!
LookupField := TStringField.Create(self); // от формы
LookupField.FieldName := "MyLookupField";
LookupField.DataSet := Table;
LookupField.Size := 20;
LookupField.FieldKind := fkLookup;
LookupField.LookupDataSet := HostTable;
LookupField.LookupResultField := "NAME";
LookupField.LookupKeyFields := "NAME_ID";
LookupField.KeyFields := "ID";
LookupField.Lookup := true;

Table.Open();



 
DmitryA ©   (2001-12-21 20:16) [3]

В догонку... Наши программисты тем и славны, что на голой документации (Help"е) их не проведешь! Нужно пробовать все, а главное шевелить тем, что под волосами.



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

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

Наверх




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


3-75490
Mistr
2001-12-20 14:12
2002.01.24
Сервер-интервейс


14-75657
Serega__2
2001-11-29 10:40
2002.01.24
Господа, а что с rxlib`ом случилось?


6-75640
Spirit
2001-10-29 21:45
2002.01.24
Как?


14-75649
Потерянный
2001-11-27 15:28
2002.01.24
Попробую здесь