Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.10.2014, 19:05   #1
Alex_UA
 
Регистрация: 09.06.2014
Сообщений: 5
По умолчанию lookup поле в dbgrideh

Объясните пожалуйста причину, почему при вствке записи двойным кликом на DBGridEh3 вставляются индексы в DBGridEh1 нормально, а lookup поле 'material' отображает только записи из первой секции (в моем случае "электрики") DBGridEh2 связанной с DBGridEh3. А простой DBGrid все показывает нормально. Что не так настроено.

Код:
procedure TForm1.DBGridEh3DblClick(Sender: TObject);
//вставка записи в поле id "материал" таблицы "приход"
begin
 if fDM.ADOTable1.FieldByName('id_material').AsString<>'' then
  begin
   if(MessageBox(Handle, PChar('Изменить запись с '+'"'+(fDM.ADOTable1.FieldByName('material').AsString)
 +'"'+' на '+'"'+(fDM.ADOTable2.FieldByName('material').AsString)+'"?'), PChar('Внимание !!!'), MB_YESNO)=  IDYES) then
    begin
    fDM.ADOTable1.edit;
    fDM.ADOTable1.FieldByName('id_material').AsString:='';
    fDM.ADOTable1.FieldByName('id_material').AsString:=fDM.ADOTable2.FieldValues['id_material'];
     end
    else
   Exit
   end
  else
  begin
  fDM.ADOTable1.edit;
  fDM.ADOTable1.FieldByName('id_material').AsString:=fDM.ADOTable2.FieldValues['id_material'];
 end;
 end;
Вложения
Тип файла: rar lookup.rar (43.9 Кб, 5 просмотров)

Последний раз редактировалось Stilet; 05.10.2014 в 19:34.
Alex_UA вне форума Ответить с цитированием
Старый 05.10.2014, 19:35   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Может полюбас нужно переоткрывать данные после вставок?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.10.2014, 19:40   #3
Alex_UA
 
Регистрация: 09.06.2014
Сообщений: 5
По умолчанию

Попробую может поможет.
Не помогло переоткрытие. Но вот, что интересно MessageBox правильно читает название и DBgrid видит. Что-то с DBGridEh.

Последний раз редактировалось Alex_UA; 05.10.2014 в 19:46.
Alex_UA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lookup поле, DbGrid и выпадающие списки Бегущая вдаль БД в Delphi 1 17.05.2013 17:36
DBGridEh LookUp fields Adamrus БД в Delphi 4 05.05.2011 11:29
Как программно добавить поле Lookup в ADOQuery aquatell БД в Delphi 0 04.05.2011 01:15
Lookup поле в IBQuery - переполнение стека Yuran БД в Delphi 3 22.09.2010 12:16
lookup-поле freez1992 БД в Delphi 4 25.02.2010 20:38