Вниз
Скачать: CL | DM;

Хочу использовать DbLookUpComboBox, но как?   Найти похожие ветки 

← →
off ©   (2003-05-22 07:53) [0]

Здравствуйте мастера! Возможно вопрос не совсем ДБэшный, но все же не могли бы вы мне помочь?
Я использую DbLookUpComboBox, но не совсем обычно. Т.е. мне нужен только список значений определенного поля, без всяких LookUp. Для этого соответствующие свойства DbLookUpComboBox оставляю незаполненными. Заполняю только ListSource, ListField и KeyField, причем последние два имеют одно и тоже значение. В результате DbLookUpComboBox работает как я и хотел, если бы не ...
Внимание знатоки теперь вопрос
... возникла необходимость автоматического выбора первой записи в списке DbLookUpComboBox. Как мне это сделать например при изменении списка (DbLookUpComboBox Listource OnDataChange) выбрать первую запись.


← →
off ©   (2003-05-22 08:37) [1]

Всем спасибо!
Реализовал через KeyField.Value следующим образом:
procedure TForm1.DataSource4DataChange(Sender: TObject; Field: TField);
begin
DBLookUpcomboBox1.KeyValue:=IBQuery1FIELD1.Value;
end;

Соответственно перед этим указав
IBQuery1.Last;
IBQuery1.First;

//Если так не делать то при DbLookUpComboBox DropDown-e вместо полноценного списка можно увидеть только одну строчку


← →
off ©   (2003-05-22 08:40) [2]

Вопрос был весьма простой, и как всегда следующий вопрос: " И как я сразу до этого не додумался :-?"


← →
off ©   (2003-05-22 12:53) [3]

Кажется надо немного поправиться т.к. при использовании вышеописанного способа возникали некоторые глюки.
Попробовал реализовать так:
procedure TForm1.DataSource4StateChange(Sender: TObject);
begin
DBLookUpcomboBox1.KeyValue:=IBQuery1FIELD1.Value;
end;


← →
Johnmen ©   (2003-05-22 13:04) [4]

>..некоторые глюки.

Какие ?


← →
off ©   (2003-05-22 15:25) [5]

Работает, но ... только один раз :-)



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

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



Память: 0.46 MB
Время: 0.011 c
14-34994
Litvin
2003-05-26 11:53
2003.06.12
QRLabel


14-35042
_MYSTERYO_
2003-05-26 15:47
2003.06.12
Тоже решил выложить демку своего движка...435kb


14-35065
copyr25
2003-05-22 19:40
2003.06.12
---|Ветка была без названия|---


14-34988
ret_777
2003-05-26 12:46
2003.06.12
восстановление базы данных InterBase


1-34898
sagchat
2003-06-01 11:03
2003.06.12
У меня на форме 5 Edit как мне сохранить из них текст в файл




   Наверх