هر چه سعی کردم یک فیلد LookUp درست کنم نتوانستم . پیغام خطا می دهد که فیلد مورد نظر وجود ندارد و در بعضی مواقع حتی بقیه فیلدهای Query را هم پیدا نمی کند و در Grid نمایش نمی دهد .
کدی که آزمایش کردم این بود
Q_Asnad.ExecSQL;
sfLook:=TStringField.Create(Q_Asnad);
with sfLook do
begin
FieldName := 'Type_Sh';
FieldKind := fkLookup;
DataSet := Q_Asnad;
Name := 'Type_ShC';
KeyFields := 'Type_SH';
LookupDataSet := Q_Type_SH;
LookupKeyFields := 'Type_sh';
LookupResultField := 'Sharh_Sh';
Lookup := True;
Q_Asnad.FieldDefs.Add(sfLook. Name,ftString,40,false);
end;
Q_Type_SH.Open;
Q_Asnad.Open;
در صورت امکان اشکال کارم را بگویید یا کد لازم برای ایجاد آن را بنویسید.
جدول TAsnad درون Grid نمایش داده می شود و فیلد مورد نظر من Type_sh است که شرح این فیلد در جدول Q_Type_SH قرار دارد.
متشکرم