Главная страница
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.043 c
2-1145128479
Системщик
2006-04-15 23:14
2006.04.30
SOS


15-1144323524
ECM
2006-04-06 15:38
2006.04.30
2McSimm: Как найти ушедшую ветку?


15-1144410907
kas
2006-04-07 15:55
2006.04.30
США или Россия?


3-1141902097
anubis
2006-03-09 14:01
2006.04.30
Экспорт таблицы В Excel


2-1144815500
pavel_guzhanov
2006-04-12 08:18
2006.04.30
Как найти последний пробел в строке