Добавление LookUp поля

← →
Mr. Chel (2004-02-03 15:06) [0]

Как можно корректно добавить LookUp поле в Query?
Такой код выдает ошибку "Filed: "FIMS_TYPE" cannot be calculated or lookup field":
var F : TField;
begin
qrDistrib.Close;
qrPtype.Close;
F := TField.Create(nil);
qrDistrib.Fields.Add(F);
with F do
begin
Lookup:=true;
Required := false;
Origin:="";
FieldName:="FIMS_TYPE";
KeyFields := "FIMS_TYPE";
LookupDataSet := qrPtype;
LookupKeyFields := "DIC_VALUE";
LookupResultField := "DIC_NAME";
end;
qrPtype.open;
qrDistrib.Open;

← →
clickmaker (2004-02-03 15:22) [1]

Нельзя создавать просто TField - это абстрактный класс. TStringField, TIntegerField и т.д.

← →
Mr. Chel (2004-02-03 15:39) [2]

Поставил TStringField, стало еще хуже - теперь AV вылетает. ;( в момент qrDistrib.Open;

← →
clickmaker (2004-02-03 15:47) [3]

F := TStringField.Create(Self);
F.FieldKind := fkLookup;
F.DataSet := qrDistrib;

← →
Mr. Chel (2004-02-03 15:55) [4]

Так с AV разобрался. Тут в другом стала проблема. Выдает такое сообшение qrDistr: Field "FIMS_TYPE" not found. Вроде как пытается наладить лукап связь, а поля "FIMS_TYPE" еще нет(запрос еще не открыт)

← →
clickmaker (2004-02-03 16:01) [5]

и как это кстати может быть
FieldName:="FIMS_TYPE";
KeyFields := "FIMS_TYPE";

У тебя ж есть уже FIMS_TYPE с данными, а лукап это для его выбора, т.е. FIMS_TYPE_NAME например

← →
Mr. Chel (2004-02-03 16:05) [6]

> FieldName:="FIMS_TYPE";
> KeyFields := "FIMS_TYPE";

Да согласен это гон.. Уже исправил, но ошибка field not found, начала выпадать после исправления.

← →
Mr. Chel (2004-02-03 16:11) [7]

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

← →
Mr. Chel (2004-02-03 16:43) [8]

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

Все, сделал. ;)
Спасибо.

Добавление LookUp поля Найти похожие ветки