| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Добавить Lookup поле программно [D7]

Exciter ©   (2006-04-15 18:29:00) 

Мастера. Подскажите как это сделать.
Пишу код.

procedure TRepForm.BitBtn1Click(Sender: TObject);
Const FN = 'NAPRAVNAME';
begin
with DM.REPORTQUERYSEx1.FieldDefs do
 begin
  with AddFieldDef do begin
    Name      := FN;
    DataType  := ftString;
    Size := 40;
  end;
  //тут получаю ошибку
  DM.REPORTQUERYSEx1.FieldByName(FN).FieldKind := fkLookup;
  DM.REPORTQUERYSEx1.FieldByName(FN).KeyFields := 'IDN';
  DM.REPORTQUERYSEx1.FieldByName(FN).LookupDataSet     := DM.Napravs;
  DM.REPORTQUERYSEx1.FieldByName(FN).LookupKeyFields   := 'ID';
  DM.REPORTQUERYSEx1.FieldByName(FN).LookupResultField := 'NAME';
  DM.REPORTQUERYSEx1.FieldByName(FN).Visible := True;
 end;
 ShowMessage('Выполнено.');
end;

В чём дело. Подскажите.

---

Exciter   (2006-04-15 21:10:00) [1]

Неужели никто не знает как программно добавить Lookup поле ?

---

Anatoly Podgoretsky   (2006-04-15 20:00:00) [2]

Ты думаешь, что кто то будет набирать этот код, что бы узнать об ошибке?

---

Наверх