DBLookupComboBox

отредактировано 16:27 Раздел: FastReport 2.xx VCL
Уважаемые участники форума!
Подскажите, пожалуйста, как использовать компоненту DBLookupComboBox.
На DialogForm поставил DBLookupComboBox1 и Query1.
В Query1 в SQL написано примерно следующее:
select KODTANK, IDENTTANK
from SprTank
where KODOTDEL =:KODOTD
order by IdentTank
У DBLookupComboBox1 проставлены следующие свойства:
ListSource --> Query1
ListField --> IdentTank
KeyField --> KodTank.

Понятно, что поле IdentTank - символьное, KodTank - числовое (первичный ключ).

Вопросов два:
1) Как по выбранному из DBLookupComboBox1 по выбранному полю IdentTank узнать значение поля KodTank? Например но нажатию кнопки вывести это значение в Label1 в том же окне? Обращение типа DBLookupComboBox1.KeyValue или [Query1."KODTANK"] не срабатывает.
2) Как программно заполнить (то есть выбрать) первое значение в DBLookupComboBox1? При вызове Query1.Active := True DBLookupComboBox1.Text равен пустой строке. Необходимо выбрать значение Query1.First.

Заранее спасибо.

Комментарии

  • отредактировано 16:27
    В DBLookupComboBox1.Text содержиться выбранный код
    Переход на запись DBLookupComboBox1.Text:=[Dialogform.Query1."identtank"]
    или DBLookupComboBox1.Text:=1;
  • отредактировано 16:27
    Поскажите пожайлуста у меня на эту запись DBLookupComboBox1.Text:=1; говорит что левая часть выражения не может быть присвоена;
    Версия 4.15.10.

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.