2 DBLookUpComboBox'a и фильтрация

demamon

Есть 3 таблицы. В первую добавляются данные из оставшихся 2 таблиц. Во второй данные о вкладах (deposit), в третей о вкладчиках (investor). В обеих таблицах есть поле id_subject которое отображает для таблицы investor является ли вкладчик физ лицом или юр лицом, а для таблицы deposit кто может взять вклад. На форме добавления данных есть 2 комбобокса. В 1 выбираю вкладчика и если он физ лицо, то 2 комбобоксе должны отображаться только вклады для физ. лиц. Вот код
procedure TDepositFormEdit.DBLookupComboBox1Exit(Sender: TObject);
begin
DM.*************.SQL.Text:='SELECT id_subject FROM Investor where id_investor = ' + quotedStr(DBLookupComboBox1.KeyValue);
DM.*************.Open;
id_subject:=DM.*************.FieldByName('id_subject').AsString;
DM.*************.Close;
DM.QuFiltr2.SQL.Text:='SELECT id_deposit, name_deposit, id_subject FROM DEPOSIT where id_subject =  '+ quotedStr(DBLookupComboBox1.KeyValue);
DM.QuFiltr2.Open;
end;
Проблема в том что 2 комбобокс всегда пустой, где ошибка?
2 ответа

demamon

где ошибка?
не привязан не выбрана колонкаЗЫ а почему бы 2 обычных Combobox не использовать? заполнять такими же запросами


demamon

Если тут
DM.*************.SQL.Text:='SELECT id_subject FROM Investor where id_investor = ' + quotedStr(DBLookupComboBox1.KeyValue);
Напрямую значение id_investor вписать то все отображает. Что то с keyvalueОй, вообще надо же id_subject поставить. Невнимательность.