|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание Lookup поля
Мне нужно программно создать lookup поле в ADOTable.
В ADOTable1 есть поле *k4* - его нужно заменить на lookup В ADOTable2 справочник откуда и берем данные, там есть ключевое поле *id* и поле *value* Код:
ADOTable1.Active:=false; with TStringField.Create(ADOTable1) do begin FieldName := 'L4'; FieldKind := fkLookup; DataSet := ADOTable1; Name := 'lookup' + FieldName; KeyFields := 'k4'; LookUpDataSet := ADOTable2; LookUpKeyFields := 'id'; LookUpResultField:= 'value'; ADOTable2.FieldDefs.Add(Name, ftString, 20, false); end; ADOTable1.Active:=true; Код выдает ошибку, что в ADOTable1 *k4* не найдено, хотя оно там есть. Подскажите, в чем может быть проблема? |
#2
|
|||
|
|||
Проблему решил, нужно сначало в Fields Editor'e добавить все поля, тогда они будут видны. А как это сделать программно?
|