Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.048 c
8-1132910552
avlan
2005-11-25 12:22
2006.04.30
Видео в формате WMV


1-1143086318
walkernet
2006-03-23 06:58
2006.04.30
Как можно программно переместить курсор мыши?


15-1144390810
Vlad Oshin
2006-04-07 10:20
2006.04.30
Переведите с московского на русский :)


3-1141681153
as77
2006-03-07 00:39
2006.04.30
FastReport и FibPlus


15-1144171175
-=Z=-
2006-04-04 21:19
2006.04.30
Inter Base