Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.139.86.18] |
|
Сообщ.
#1
,
|
|
|
Всем привет!
При выборе в TDBLookupComboboxEh пункта запускается обработчик OnChange, который должен загружать в другой TDBLookupComboboxEh список по SQL-запросу: begin with AccessData.qrySecond, SQL do begin Clear; dblkcbbehSecond.KeyValue := Null; if dblkcbbehFirst.KeyValue <> Null then begin Text := 'SELECT * FROM Second WHERE First='+IntToStr(dblkcbbFirst.KeyValue); Open; end; end; end; В чём может быть косяк? p.s. Delphi 7 + MS Access Исключение вылетает только при закрытии. При срабатывании (в т.ч. многократном) OnChange всё работает как надо, список подгружается. В принципе, можно оставить только with + Text := ... + Open (т.е. убрать Clear, ... := Null и if), всё равно будет ошибка... |
Сообщ.
#2
,
|
|
|
Разобрался!
Добавил AccessData.conMain.Close в FormClose, ошибка исчезла |