Ручками.
На OnLookup написать что-то вроде
Record.SETFILTER(<кладем фильтры>);
LookupForm.LOOKUPMODE := TRUE;
LookupForm.SETTABLEVIEW(Record);
IF LookupForm.RUNMODAL = ACTION::LOOKUPOK THEN BEGIN
LookupForm.GETRECORD(Record);
LookupResult := Record."No."; //ну или какое там поле интересует вместо "No."
END;
__________________
"Моей лошадке ядрышком полмордочки снесло..."
А.В.Суворов, письма к дочери
|