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

Вниз

Добавить Lookup поле программно   Найти похожие ветки 

← →
Exciter ©   (2006-04-15 18:29) [0]

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

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;

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

---

← →
Anatoly Podgoretsky ©   (2006-04-15 20:00) [1]

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

---

← →
Exciter ©   (2006-04-15 21:10) [2]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c