[Anastasya32]

Подскажите пожалуйста как прописать код в обработчике , чтобы в DBLookupCombobox при выборе записи она учитывалась. Не пойму что не так в коде.

Код:

begin
   if DBLookupComboBox.Text=' ' then
     begin
       ShowMessage('Выберите ФИО!');
     end
   else
     begin
       with DataModuleM.QuReportEmpl do
         begin
         if Active = True  then
           Close;
           Prepare;
           ParamByName('fio').ASString:= DBLookupComboBox.Text;
           Open;
         end;
     end;
end;