Главная страница
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.056 c
15-1144413768
Std
2006-04-07 16:42
2006.04.30
delphi 2006+upx архиватор


1-1143132806
lookin
2006-03-23 19:53
2006.04.30
В MainMenu пробежаться по всем MenuItem любой степени вложенности


15-1144533375
Yanis
2006-04-09 01:56
2006.04.30
Подскажите программу


10-1116426728
iSprite
2005-05-18 18:32
2006.04.30
Никак не могу получить IADsMembers. (LDAP/WinNT)


2-1144930611
Der Nechk@ssoff
2006-04-13 16:16
2006.04.30
Типизация файла