[Chinvad]

Здравствуйте, уважаемые! Очень нужна помощь.
DBLookupComboBox выводит из таблицы Access некоторые виды услуг (по категориям... типа Женский, Мужской зал и т.п.) в некоторой парикмахерской. Но так как возможности салона постоянно расширяются, появляется потребность в добавлении нового вида услуг... Для этого в таблице есть запись "ДРУГОЕ", которая также отражается в DBLookupComboBox. Так вот при клике на эту запись происходит редактирование таблицы, в результате которого вместо "ДРУГОЕ" появляется введенная пользователем запись. А уже потом к таблице добавляется очередная безликая запись "ДРУГОЕ"... все это для того чтобы она была в списке последней (для удобства просмотра и осознания необходимости добавления новой услуги). Код я приведу чуть ниже... Так вот в чем же проблема! Один раз я это дело протестировала... Добавилась к таблице моя новая запись, а ниже ее нарисовалось и то самое "ДРУГОЕ". Все это отразилось вот прямо как надо в DBLookupComboBox. НО! Второй раз я это проделать не могу.

PHP код:

if (DBLookupComboBox3.Text='ДРУГОЕ') then
   begin
   if DM.Uslugi.Locate('категория;услуга',VarArrayOf([ComboBox1.Text,DBLookupCombobox3.Text]),[]) then
      begin
      //На место записи с пометкой "Другое" вставляем запись с новой услугой
      DM.Uslugi.Edit;
      DM.Uslugi.FieldByName('услуга').AsString:=InputBox('Запись','Введите описание оказанной услуги.','');
      DM.Uslugi.FieldByName('стоимость_услуги').AsFloat:=StrToFloat(InputBox('Запись','Введите стоимость оказанной услуги.',''));
      DM.Uslugi.Post;

      //Выводим на форму
      DBLookupCombobox3.KeyValue := DM.Uslugi.FieldByName('услуга').AsString;
      Edit1.Text:=FloatToStr(DM.Uslugi.FieldByName('стоимость_услуги').AsFloat);

      //Заново создаем запись с пометкой "Другое" (чтобы она была в списке последней)
      DM.Uslugi.Insert;
      DM.Uslugi.FieldByName('категория').AsString:=ComboBox1.Text;
      DM.Uslugi.FieldByName('услуга').AsString:='ДРУГОЕ';
      DM.Uslugi.Post;
      end;
   end; 


Вхожу на F7 в процедуру и наблюдаю следующее:
Доходит до строчки

PHP код:

if (DBLookupComboBox3.Text='ДРУГОЕ') then 


и не принимая мой добросовестный клик на "ДРУГОЕ" благополучно скачет на end;
Я в тупике, господа... Помогите, пожалуйста!!! ))

[Ildar-tsr]

Перед строчкой

Код:

if (DBLookupComboBox3.Text='ДРУГОЕ') then

допишите строчку

Код:

ShowMessage(DBLookupComboBox3.Text);

что будет выводиться в первом и втором случае.

[Chinvad]

PHP код:

ShowMessage(DBLookupComboBox3.Text); 


Выводит строчку перед "ДРУГОЕ"...

[Страдалецъ]

Вы несколько неверно сделали. Делается следующее. Источником данных для вашего лукапа формируется запрос вида:

Код:

select Код,Услуга from Услуги
union
select -1,'другое'

Т.е. Другое - это не реальная запись в БД, а дополнительная строка в наборе данных. Теперь при выборе значения из лукапа вам останется только проверить значение кода на -1 т.е. несуществующее значение в справочнике.

[Chinvad]

Я тоже так подумала сначала... Но как же так... Открываю БД в Access, а там все мои записи, вот именно так, как я их вводила. Они и отражаются в DBLookupComboBox3.Text. Что я делаю принципиально не так???

[Ildar-tsr]

Попробуйте после строчки

Код:

DM.Uslugi.Post; 

Написать следующее:

Код:

DBLookupComboBox3.ListSource.DataSet.Close;
DBLookupComboBox3.ListSource.DataSet.Open;

[Chinvad]

Не помогает. Он даже в условие if не заходит, просто не видит эту строчку. Переделала все в самой БД. Открываю-закрываю наборы данных, бестолку. Страдалецъ прав... но я не понимаю почему я не могу делать так, как сделала )

[Страдалецъ]

Если отбросить элемент мистики, то сделайте следующее:
1. Сделайте точку останова на
if (DBLookupComboBox3.Text='ДРУГОЕ') then
2. Вызовите окошко Evaluate/Modify по Ctrl+F7
3. Вычислите выражение DBLookupComboBox3.Text='ДРУГОЕ'
Если значение в DBLookupComboBox3.Text = 'ДРУГОЕ' а результат вычисление все-же False то либо Дельфи баганулся и тут перезагрузка компа может помочь, либо что более вероятно, у вас действительно 'ДРУГОЕ' <> 'ДРУГОЕ', а тут может быть например подмена буковок:

'ДPУГОЕ' <> 'ДРУГОЕ'
'ДРУГOЕ' <> 'ДРУГОЕ'
'ДРУГОE' <> 'ДРУГОЕ'

Все три приведенных неравенства истинны

[Chinvad]

Вопрос закрыт ) Слава Ildar-tsrУ )) Если кому-то интересно, то DBLookupCombobox3.Text везде нужно заменить на DBLookupComboBox3.KeyValue.