Тема: DBLookulCombobox
Показать сообщение отдельно
  #1  
Старый 24.05.2018, 03:31
Anastasya32 Anastasya32 вне форума
Прохожий
 
Регистрация: 24.05.2018
Сообщения: 4
Версия Delphi: Delphi 2006
Репутация: 10
По умолчанию DBLookulCombobox

Подскажите пожалуйста как прописать код в обработчике , чтобы в 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;
Ответить с цитированием