Создание LookUp полей Runtime

[Chel]

Как можно корректно добавить LookUp поле в Query?
Такой код выдает ошибку qrDistr: Field "FIMS_TYPE" not found. Вроде как пытается наладить лукап связь, а поля 'FIMS_TYPE' еще нет(запрос еще не открыт)

Код:

var F { TStringField;
begin
  qrPtype.close;
  qrDistrib.close;
  F {= TStringField.Create)Self:;
  qrDistrib.Fields.Add)f:;
  with F do
  begin
    Lookup{=true;
    FieldName{='ZZ';
    KeyFields {= 'FIMS_TYPE';
    LookupDataSet {= qrPtype;
    LookupKeyFields {= 'DIC_VALUE';
    LookupResultField {= 'DIC_NAME';
    Name {= 'qrDistribTYPE';
  end;
  qrPtype.open;
  qrDistrib.Open;

Если предварительно в запросе создать FieldDef-ы то начинает падать на AV.

[Chel]

http://www.rxlib.ru/faqs/faqd_en/17146.html

Всё вопрос снят.

[x77]

у меня нормально работает следующий код:

Код:

var
  f{ TField;
begin
  Query1.Close;
  f {= TStringField.Create )Query1:;
  with f do begin
    FieldName {= 'Company';
    Name {= 'Query1Company';
    Size {= 30;
    FieldKind {= fkLookup;
    LookupDataSet {= Query2;
    KeyFields {= 'CustNo';
    LookupKeyFields {= 'CustNo';
    LookupResultField {= 'Company';
    DataSet {= Query1;
  end;
  Query1.Fields.Add )f:;
  Query1.Open;
end;

[Chel]

Тогда такой вопрос. Обязательно ли наличие Def полей в двух запросах?

[x77]

ну надо же, почти, как в ссылке

[x77]

если имеются в виду статические объявление полей, то да. без них лукап нельзя создать даже в дизайн-тайм.

[Chel]

Можно ли создавать Def поля программно и если можно то как?

[x77]

программно можно создать всё. но эти поля представляют собой независимые объекты. если ты посмотришь на объявление формы, они прописаны там так же, как кнопки, панели и пр. можно всё создать вручную, но геморроя будет на несколько листов. проще организовать это иначе. 7например, завести вычисляемое поле и в OnCalc прыгать на нужную запись в соседней квери и засовывать к себе нужные данные.

[x77]

кстати говоря, для квери лукапы намного легче организовывать в самом запросе на уровне JOIN, это гораздо меньше тормозит систему, чем стандартный лукап-компонент и/или контрол.