Как отобразить значения из 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

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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. 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. Программа предоставляет более. . .

@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 5961 / 4537 / 1094 Регистрация: 29.08.2013 Сообщений: 28,145 Записей в блоге: 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 5961 / 4537 / 1094 Регистрация: 29.08.2013 Сообщений: 28,145 Записей в блоге: 3
	05.11.2016, 17:42
	извини - искать еще за тебя это будет не честно 0