Как отобразить значения из dbgrid в combobox?

@Dina15 · Регистрация: 13.04.2011

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

Здравствуйте!

У меня есть таблица dbgrid и компонент combobox. Мне надо, чтобы при нажатии на combobox в выпадающем списке отображались данные из dbgrid. У меня значения отображаются, когда я ввожу что-нибудь в combobox, а мне надо чтобы данные отображались при нажатии на combobox и не было доступа для ввода данных combobox. Как это сделать? Помогите плиз.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm2.TntComboBox2Change(Sender: TObject);
 var i:integer;
begin
 
with form3.adotable1 do begin
  Active := TRUE;
  while not Eof do begin
    tntComboBox2.Items.Add (Fields [0].AsString);
    Next;
  end;
 end;
 
end;

@Dina15 · 22.04.2011, 21:35 **[ТС]**

Никто не поможет?

@Wizardzim · 23.04.2011, 03:19

Свойство Style выставить в csDropDownList

в событие OnClick (а лучше наверное в OnEnter) вставить

TntComboBox2.DroppedDown:=True;

@Dina15 · 23.04.2011, 13:53 **[ТС]**

Спасибо.

У меня теперь такая проблема комбобокс и таблица находятся на разных формах. Когда я добавляю запись в таблицу в комбобоксе эта запись не отображается, данные отображаются после перезапуска программы. А если эти компоненты на одной форме находятся, то все работает. Что написать, чтобы комбобокс отображал добавленные записи? (может надо обновить комбобокс или таблицу). Пробовала написать combobox1.refresh не помогает.

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm2.TntComboBox1Enter(Sender: TObject);
begin
 
 form3.adotable2.Active := TRUE;
  while not  form3.adotable2.Eof do begin
    tntComboBox1.Items.Add ( form3.adotable2.Fields [0].AsString);
     form3.adotable2.Next;
  end;
TntComboBox1.DroppedDown:=True; tntcombobox1.Refresh;
end;

@SAMZ · 23.04.2011, 14:20

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

А если эти компоненты на одной форме находятся, то все работает

По моему, Вы ошибаетесь. У ComboBox, независимо от того, где он находится, не встроенных средств синхронизации с набором данных. Похтому, если Вы, используя DBGrid (или другие средства отображения-редактирования), изменяете данные, то необходима принудительная синхронизация изменений с содержимым ComboBox.

@Dina15 · 23.04.2011, 14:25 **[ТС]**

да я ошиблась, только что проверила не работает. А как сделать "принудительную синхронизацию изменений с содержимым ComboBox" ?

Добавлено через 1 минуту

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

необходима принудительная синхронизация изменений с содержимым ComboBox.

да я ошиблась, только что проверила не работает. А как сделать "принудительную синхронизацию изменений с содержимым ComboBox" ?

@Wizardzim · 23.04.2011, 14:28

Refresh не перезаполняет, а просто перерисовывает компонент.
Вам надо его перезаполнить.
Для этого его сначала надо очистить.

Delphi
1
tntComboBox1.Items.clear;

Если элементов очень много, больше 300.
Рекомендуется использовать BeginUpdate и EndUpdate для Items - быстрее перезаполнится.

Как-то тогда уже вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.TntComboBox1Enter(Sender: TObject);
begin
 tntComboBox1.Items.Clear; // очищаем комбобокс
tntComboBox1.Items.BeginUpdate; // запрещаем перерисовку пока добавляем элементы
 
 form3.adotable2.Active := TRUE;
  while not  form3.adotable2.Eof do begin
    tntComboBox1.Items.Add ( form3.adotable2.Fields [0].AsString);
     form3.adotable2.Next;
  end;
 
tntComboBox1.Items.EndUpdate; // включаем перирисовку, иначе просто ничего не увидим в комбобоксе
 
TntComboBox1.DroppedDown:=True; tntcombobox1.Refresh;
end;

@Dina15 · 23.04.2011, 22:22 **[ТС]**

Спасибо, вы очень помогли мне.

@Gazon · 02.12.2011, 17:53

Здравствуйте форумчане.. то что вы написали спс очень пригодилось долго не мог этого сделать, а можете показать как из выбранного в списке (combobox) значения в edit выводилось другое поле этой же записи..как их так связать? Например имя(Вася) а фамилия его там Иванов это в базе...вот нужно что бы в списке например выбрал имя Вася и в edit уже автоматически была занесена его фамилия из базы...напишите плииз как это осуществить ..заранее спс!

@Wizardzim · 02.12.2011, 21:39

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

Здравствуйте форумчане.. то что вы написали спс очень пригодилось долго не мог этого сделать, а можете показать как из выбранного в списке (combobox) значения в edit выводилось другое поле этой же записи..как их так связать? Например имя(Вася) а фамилия его там Иванов это в базе...вот нужно что бы в списке например выбрал имя Вася и в edit уже автоматически была занесена его фамилия из базы...напишите плииз как это осуществить ..заранее спс!

TDBLookupCombobox
заполните свойства ListSource, KeyField

@shilovec5377 · 02.12.2011, 23:15

Wizardzim подскажи пж как сделать отображение, чтобы при нажатии на combobox в выпадающем списке отображались данные из dbgrid, но уменя не adotable2, а ADOQuery1.
Подскажи пж очень срочно нужно.
Заранее благодарю.

@Gazon · 02.12.2011, 23:41

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

TDBLookupCombobox
заполните свойства ListSource, KeyField

Заполнил правильно оно выводит список.. а нужно что бы в edit или db edit выводило фамилию выбранного ранее по имени человека

@shilovec5377 · 03.12.2011, 00:27

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

подскажи пж как сделать отображение, чтобы при нажатии на combobox в выпадающем списке отображались данные из dbgrid, но уменя не adotable2, а ADOQuery1.

кто-нибудь очень нужно.

Добавлено через 29 минут
Dina15 а ВЫ можете сбросить свою прогу. Очень буду благодарен.

@Wizardzim · 05.12.2011, 20:47

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

Wizardzim подскажи пж как сделать отображение, чтобы при нажатии на combobox в выпадающем списке отображались данные из dbgrid, но уменя не adotable2, а ADOQuery1.
Подскажи пж очень срочно нужно.
Заранее благодарю.

Не работал ни с тем, ни с другим.
Что значит данные из DBGrid?

Чтобы в выпадающем списке отображались данные из конкретного столбика DBGrid?
Тот же DBLookupCombobox.

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

Заполнил правильно оно выводит список.. а нужно что бы в edit или db edit выводило фамилию выбранного ранее по имени человека

Что, в edit сразу весь список выводит?
Датасет тот же?

@Ремонтник · 04.11.2016, 18:09

Вопрос актуален!
Подскажите как добавить в combobox из dbgrid?

@qwertehok · 04.11.2016, 18:31

получить данные из Dataset, подключенного к этому DbGrid, и работать уже с ними

@Ремонтник · 04.11.2016, 19:05

То есть работа с DataSource ? Не могу понять как реализовать. Есть код?

@qwertehok · 04.11.2016, 22:39

Сообщение от Ремонтник

То есть работа с DataSource

с DataSet, читайте внимательнее

Сообщение от Ремонтник

Есть код?

на форуме все есть, обсуждалось 100500 раз

@Ремонтник · 05.11.2016, 05:14

Я бы не стал здесь спрашивать, если бы нашёл.

@qwertehok · 05.11.2016, 17:42

извини - искать еще за тебя это будет не честно

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Dina15 1 / 1 / 0 Регистрация: 13.04.2011 Сообщений: 8
	22.04.2011, 21:35 [ТС]
	Никто не поможет? 0

@Wizardzim 15 / 15 / 3 Регистрация: 23.04.2011 Сообщений: 39
	23.04.2011, 03:19
	Свойство Style выставить в csDropDownList в событие OnClick (а лучше наверное в OnEnter) вставить TntComboBox2.DroppedDown:=True; 1

@Dina15 1 / 1 / 0 Регистрация: 13.04.2011 Сообщений: 8
	23.04.2011, 22:22 [ТС]
	Спасибо, вы очень помогли мне. 1

@Gazon 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 3
	02.12.2011, 17:53
	Здравствуйте форумчане.. то что вы написали спс очень пригодилось долго не мог этого сделать, а можете показать как из выбранного в списке (combobox) значения в edit выводилось другое поле этой же записи..как их так связать? Например имя(Вася) а фамилия его там Иванов это в базе...вот нужно что бы в списке например выбрал имя Вася и в edit уже автоматически была занесена его фамилия из базы...напишите плииз как это осуществить ..заранее спс! 0

@shilovec5377 33 / 58 / 13 Регистрация: 26.05.2011 Сообщений: 756
	02.12.2011, 23:15
	Wizardzim подскажи пж как сделать отображение, чтобы при нажатии на combobox в выпадающем списке отображались данные из dbgrid, но уменя не adotable2, а ADOQuery1. Подскажи пж очень срочно нужно. Заранее благодарю. 0

@Ремонтник 2 / 2 / 0 Регистрация: 23.11.2015 Сообщений: 57
	04.11.2016, 18:09
	Вопрос актуален! Подскажите как добавить в combobox из dbgrid? 0

@qwertehok 5958 / 4534 / 1094 Регистрация: 29.08.2013 Сообщений: 28,141 Записей в блоге: 3
	04.11.2016, 18:31
	получить данные из Dataset, подключенного к этому DbGrid, и работать уже с ними 0

@Ремонтник 2 / 2 / 0 Регистрация: 23.11.2015 Сообщений: 57
	04.11.2016, 19:05
	То есть работа с DataSource ? Не могу понять как реализовать. Есть код? 0

@Ремонтник 2 / 2 / 0 Регистрация: 23.11.2015 Сообщений: 57
	05.11.2016, 05:14
	Я бы не стал здесь спрашивать, если бы нашёл. 0

@qwertehok 5958 / 4534 / 1094 Регистрация: 29.08.2013 Сообщений: 28,141 Записей в блоге: 3
	05.11.2016, 17:42
	извини - искать еще за тебя это будет не честно 0