ComboBox при открытии формы устанавливался на 1 записи

@Klevtsov · Регистрация: 22.02.2011

Студворк — интернет-сервис помощи студентам

Каким образом сделать так, чтобы ComboBox заполняемый с помощью запроса
Источник строк:SELECT [TCurreny].[Id], [TCurreny].[Name] & ' ; ' & [TCurreny].[ValueCurrency] & ' ; ' & [TCurreny].[Data] AS Выражение1 FROM TCurreny;

при открытии формы автоматически устанавливался на 1 записи

@Ирча · 20.04.2011, 10:40

Private Sub Form_Open(Cancel As Integer)
МойКомбобокс = МойКомбобокс.ItemData(Mestorojd.ListInde x + 1)
Requery
End Sub

@Ирча · 20.04.2011, 10:42

Опс. Ошибочка вышла
Private Sub Form_Open(Cancel As Integer)
МойКомбобокс = МойКомбобокс.ItemData(МойКомбобокс.ListI ndex + 1)
Requery
End Sub

@Klevtsov · 20.04.2011, 11:49 **[ТС]**

невозможно присвоить значение обьекту
вот такое сообщение я получаю при выполнение функции
Private Sub Form_Open(Cancel As Integer)
Me.IdCurrent = Me.IdCurrent.ItemData(0)
End Sub
IdCurrent и есть ComboBox

@Ирча · 20.04.2011, 12:59

К комбобокс не на подчиненной форме случайно?

@And_110 · 20.04.2011, 13:00

конструкция Me.Combo1 = Me.Combo1.ItemData(0) работает, т.к. по умолчанию используется свойство Me.Combo1.Value.

Ошибка возникает в Form_Open при попытке присвоить значение элементу, связанному с таблицей. Эту обработку лучше поместить на Form_Current.

@And_110 · 20.04.2011, 13:10

мда...
наверно, все-таки не Current, а Form_Load!

@Klevtsov · 20.04.2011, 13:31 **[ТС]**

Спасибо,сделал из вызыващей формы
Forms!FormMain1!IdCurrent = Forms!FormMain1!IdCurrent.ItemData(0)
показывает первую запись

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Klevtsov 0 / 0 / 0 Регистрация: 22.02.2011 Сообщений: 9

	ComboBox при открытии формы устанавливался на 1 записи 20.04.2011, 09:39. Показов 2024. Ответов 7 Метки нет (Все метки) Каким образом сделать так, чтобы ComboBox заполняемый с помощью запроса Источник строк:SELECT [TCurreny].[Id], [TCurreny].[Name] & ' ; ' & [TCurreny].[ValueCurrency] & ' ; ' & [TCurreny].[Data] AS Выражение1 FROM TCurreny; при открытии формы автоматически устанавливался на 1 записи 0

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	20.04.2011, 10:40
	Private Sub Form_Open(Cancel As Integer) МойКомбобокс = МойКомбобокс.ItemData(Mestorojd.ListInde x + 1) Requery End Sub 0

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	20.04.2011, 10:42
	Опс. Ошибочка вышла Private Sub Form_Open(Cancel As Integer) МойКомбобокс = МойКомбобокс.ItemData(МойКомбобокс.ListI ndex + 1) Requery End Sub 0

@Klevtsov 0 / 0 / 0 Регистрация: 22.02.2011 Сообщений: 9
	20.04.2011, 11:49 [ТС]
	невозможно присвоить значение обьекту вот такое сообщение я получаю при выполнение функции Private Sub Form_Open(Cancel As Integer) Me.IdCurrent = Me.IdCurrent.ItemData(0) End Sub IdCurrent и есть ComboBox 0

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	20.04.2011, 12:59
	К комбобокс не на подчиненной форме случайно? 0

@And_110 9 / 9 / 1 Регистрация: 07.06.2010 Сообщений: 322
	20.04.2011, 13:00
	конструкция Me.Combo1 = Me.Combo1.ItemData(0) работает, т.к. по умолчанию используется свойство Me.Combo1.Value. Ошибка возникает в Form_Open при попытке присвоить значение элементу, связанному с таблицей. Эту обработку лучше поместить на Form_Current. 0

@And_110 9 / 9 / 1 Регистрация: 07.06.2010 Сообщений: 322
	20.04.2011, 13:10
	мда... наверно, все-таки не Current, а Form_Load! 0

@Klevtsov 0 / 0 / 0 Регистрация: 22.02.2011 Сообщений: 9
	20.04.2011, 13:31 [ТС]
	Спасибо,сделал из вызыващей формы Forms!FormMain1!IdCurrent = Forms!FormMain1!IdCurrent.ItemData(0) показывает первую запись 0