Скачать: CL | DM;

Проблема с DBLookupComboBox   Найти похожие ветки 

← →
Евген ©   (2004-02-26 18:33) [0]

Господа, добрый день. Я понимаю что вопрос мой глупый и гдето даже элементарный, но я о него споткнулся и не могу решить уже два дня.
Есть БД InterBase, в нец две таблицы: Goods (Товары) и Proizvoditel (Страна производитель - 2 поля P_ID - код страны и P_NAME - название страны). В таблице товаров есть поле (Intrger) со ссылкой на код страны изготовителя.
По ряду причин редактирую записи я не в BDGrid (там я их только просматриваю) а в отдельной форме. Когда форма для редактирования открывается соответствующие элементы управления (в основном TEdit) заполняются значениями текущей записи. Дак, собственно, проблема в том что DBLookupComboBox, который отвечает за выбор стран не переходит на строчку с соотв. страной, а стоит на пустой строке. Уже потом при ручной смене изготовителя все работает нормально - отлавливаю необходимый индекс страны при выборе в списке и записываю его в таблицу товаров. Но ведь так работать нельзя!!! Уважаемые мастера укажите пожалуйста грабли на которые я наступаю!
Вот кусок кода, который отвечает за заполнение формы для редактирования:

NameEdit.Text:=FormMain.GoodsDataSet.FieldByName"NAME").AsString;
ProizvoditelDBLCB.ListFieldIndex:=
FormMain.GoodsDataSet.FieldByName"PROIZVODITEL").AsInteger;

OpisEdit.Text:=
FormMain.GoodsDataSet.FieldByName("OPIS").AsString;

IzmEdit.Text:=FormMain.GoodsDataSet.FieldByName("IZM").AsString;
PriceEdit.Text:=
FormMain.GoodsDataSet.FieldByName("PRICE").AsString;

PriceDillEdit.Text:=
FormMain.GoodsDataSet.FieldByName("PRICE_OPT").AsString;

PriceOptEdit.Text:=
FormMain.GoodsDataSet.FieldByName("PRICE_OPT").AsString;


Подключение DBLookupComboBox следующее:
IBDatabase->ProizvoditelDataSet->ProizvoditelDataSource->ProizvoditelDBLCB

ProizvoditelDBLCB.ListSourse:=ProizvoditelDataSource;
ProizvoditelDBLCB.ListField:=P_NAME;
ProizvoditelDBLCB.KeyField:=P_ID;
ProizvoditelDBLCB.DataSourse и
ProizvoditelDBLCB.DataField незаполнены.

---

← →
stud ©   (2004-02-26 18:42) [1]

ProizvoditelDBLCB.KeyValue:=нужный код

---

← →
Евген ©   (2004-02-27 10:21) [2]

> stud ©

Огромное спасибо!!! Как я и предполагал, я споткнулся на позорном пустяке!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c