Отображение первой записи таблицы DBLookupComboBox

[фЁдОр]

Здравствуйте, уважаемые программисты!
Теперь уже поздравляю Всех с наступившим Новым годом !

Подскажите, пожалуйста, как мне вывести первую строку таблицы из БД созданной в аксессе.
Сейчас постараюсь обяснить свою суть:
имеется таблица groups(содержаться информация о группе товаров) и таблица price (содержится информация о товарах). таблица groups у меня подключена к DBLookupComboBox, а таблица price у меня отображается в DBGrid. Обе таблицы связаны для того, чтобы в выпадающем списке можно было выбрать группу товаров, а гриде отображались эти товары.
А проблема моя заключается в том, что при запуске приложения у меня в DBLookupComboBox "пустота", группы товаров могу выбрать только когда я раскрою этот список. Не могу понять, как мне при зупуске приложения, что бы уже в DBLookupComboBox была отображена первая запись таблицы groups. Нужно это для того, что при запуске приложения в DBLookupComboBox отображалась запись "Выберите группу товаров", а гриде отображались все товары всех групп.
Я пробовал при событии FormCreate писать groups.first; - не помогло. пробовал и в свойстве ListFieldIndex компонента DBLookupComboBox устанавливать 1-цу - тоже не помогло, также пробовал при событии FormCreate писать

DBLookupComboBox1.KeyValue:=form1.ADOQueGroupsRatissDisk.FieldValues['name']

-тогда вообще компилятор ругается.
Искал на форуме - нашел обдну похожую тему http://www.programmersforum.ru/showt...lookupcombobox, но тоже не смог решить свою проблему.

[mihali4]

Вы как-то странно написали:
DBLookupComboBox1.KeyValue:=form1.A DOQueGroupsRatissDisk.FieldValues['name']
Попробуйте:
DBLookupComboBox1.KeyValue:=form1.A DOQuery.FieldByName(имя поля, указанного в ListField компонента DBLookupComboBox).Value;

[фЁдОр]

Сообщение от mihali4

Вы как-то странно написали:
DBLookupComboBox1.KeyValue:=form1.A DOQueGroupsRatissDisk.FieldValues['name']
Попробуйте:
DBLookupComboBox1.KeyValue:=form1.A DOQuery.FieldByName(имя поля, указанного в ListField компонента DBLookupComboBox).Value;

FieldByName не отображается, а FieldValues выпадает когда я ставлю точку после DBLookupComboBox, т.е.
ADOQuery.FieldByName(''GroupsName') .Value - я не могу написать, а ADOQuery.FieldValues['GroupsName'] - могу.
в поле GrousName из таблицы groups, это поле указано в ListField компонента DBLookupComboBox.

[фЁдОр]

Всё как всегда оказывается очень просто !
Нужно было всего лишь написать при событии FormCreate вот такую строчку:
form1.DBLookupComboBox1.KeyValue:=1 ; Только 1 - это не значение свойства ListField, компонента DBLookupComboBox1, а значение свойства KeyField, того же компонента.
А я блин столько дней ломал голову! Эээх...
mihali4 - Вам как всегда огромное спасибо!

[Pitbull]

Сообщение от фЁдОр

Всё как всегда оказывается очень просто !
Нужно было всего лишь написать при событии FormCreate вот такую строчку:
form1.DBLookupComboBox1.KeyValue:=1 ; Только 1 - это не значение свойства ListField, компонента DBLookupComboBox1, а значение свойства KeyField, того же компонента.
А я блин столько дней ломал голову! Эээх...
mihali4 - Вам как всегда огромное спасибо!

и такое работает?)))) странно у меня нет!

[фЁдОр]

Сообщение от Pitbull

и такое работает?)))) странно у меня нет!

а почему оно не должно работать? Не знаю - у меня получилось .

[mihali4]

и такое работает?)))) странно у меня нет!

В вашей таблице, видимо, нет значения "1" в поле, указанном как KeyField.
А у автора просто так совпало. Вопрос он так и не решил.
Вот это меня просто убило:

FieldByName не отображается, а FieldValues выпадает когда я ставлю точку после DBLookupComboBox

Похоже, руками работать совсем лень, используем только "выпадалки"?

[фЁдОр]

нет значения "1" в поле, указанном как KeyField

можно подставить любое другое значение, таким образом отобразив при запуске приложения любую другую строчку, которая если имеется конечно.

Вопрос он так и не решил.

А вопрос я той строчкой, вообще-то решил.

Сообщение от mihali4

Похоже, руками работать совсем лень, используем только "выпадалки"?

Ничего подобного, я и руками набирал, но компилятор потом ругается!
mihali4, при всём, конечно, к Вам уважении, но Вы попробуйте сами откомпилировать Ваш предложенный вариант.

[mihali4]

mihali4... попробуйте сами откомпилировать Ваш предложенный вариант.

Прилагаю исходник:
Вложение 2234
Exe-шник (310 кил) "не пролезает" в рамки максимального размера файла, установленного для "прицепов"...
Если нужно, скину вам на мыло.

P.S. Пардон, смотрел только на верхние, видимые пределы для картинок
Вот экзешник:
Вложение 2235

[Alar]

Сообщение от mihali4

Прилагаю исходник:
Вложение 2234
Exe-шник (310 кил) "не пролезает" в рамки максимального размера файла, установленного для "прицепов"...
Если нужно, скину вам на мыло.

там предел 4 метра если я не ошибаюсь.