Как сделать, чтобы в при выборе одного итема в ComboBox, в другом ComboBox выводился итем того же индекса?

@dartmi · Регистрация: 30.05.2016

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

Как сделать чтобы в при выборе одного итема в в ComboBox в другом ComboBox выводился итем того же индекса
например у меня есть база с именами фамилиями отчествами и мне нужно чтобы при выборе фамилии выбирались имя и отчество данного сотрудника есть код но он неудобный так как громозткий есть у кого проще?

Delphi

if sComboBox7.ItemIndex=0 then
sComboBox8.ItemIndex:=0;
 
if sComboBox7.ItemIndex=1 then
sComboBox8.ItemIndex:=1;
 
if sComboBox7.ItemIndex=2 then
sComboBox8.ItemIndex:=2;

@Ruella · 24.06.2018, 17:13

dartmi, а чем не подходит такой вариант:

Delphi

1	sComboBox8.ItemIndex:=sComboBox7.ItemIndex;

@dartmi · 24.06.2018, 17:24 **[ТС]**

У меня итемы берутся из базы и возможно поэтому такой вариант не работает я его уже пробовал

Delphi

with  Form3.ADOTable1 do
begin
DisableControls;
sComboBox1.Items.BeginUpdate;
First;
   while not Eof do
      begin
       sComboBox1.Items.Add(FieldByName('Fio').AsString);
       sComboBox2.Items.Add(FieldByName('Name').AsString);
       sComboBox3.Items.Add(FieldByName('Otchestvo').AsString);
       sComboBox5.Items.Add(FieldByName('Fio').AsString);
       sComboBox6.Items.Add(FieldByName('Name').AsString);
       sComboBox7.Items.Add(FieldByName('Otchestvo').AsString);
       Next;
      end;
sComboBox1.Items.EndUpdate;
EnableControls;

@droider · 24.06.2018, 18:05

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

такой вариант не работает

откуда берутся итемы в данном случае на это не влияет.

@Ruella · 24.06.2018, 18:12

dartmi, прошу прощения, но лично мне вообще стало непонятно, где у Вас что и откуда берется

почему комбо у Вас дублируются? и зачем вообще Вам для имени/отчества сотрудников отдельные комбо? Может, лучше свести все в один в виде ФИО? А я бы вообще предпочла вместо комбо использовать dblookupcombobox. Но, не имея ни малейшего представления о Вашем проекте, сложно о чем-то говорить. Может, выложите?

@droider · 24.06.2018, 18:17

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

Может, выложите?

это тайный проект

@dartmi · 24.06.2018, 18:42 **[ТС]**

Проект и вправду тайный дипломная работа отдел кадров пишу на заказ

Добавлено через 1 минуту
Ruella,
Итемы берутся из базы данных так получилось что в базе ф и о забиваются отдельно и создавать отдельно бд с фио не вижу смысла

Добавлено через 4 минуты
Все сделал оказалось просто сделал через переменную

Delphi

1
2
3

n:=sComboBox2.ItemIndex;
sComboBox1.ItemIndex:=n;
sComboBox3.ItemIndex:=n;

и так для каждого комбо бокса
Всем спасибо за участие

@Ruella · 25.06.2018, 00:12

dartmi, понимаю, что интерес к данной теме для Вас уже исчерпан, но все же... Как по мне, то Ваш вариант с переменной - те же самые яйца, только вид сбоку

Если у Вас не получалось без переменной, то, вероятно, что-то Вы делали не так и где-то была ошибка. По поводу ФИО - зачем создавать отдельно БД? Как я понимаю, Вы используете комбо для поиска конкретного сотрудника из уже имеющихся в БД. (Ну ведь не для добавления новых, в самом деле... Хотя без представления о проекте, повторюсь, сложно судить). Тогда зачем для функции поиска нужно три отдельных комбо, причем два из них (имя и отчество), по Вашим же словам, ни на что не влияют, а просто отображают информацию, дополняющую фамилию. (А кстати, вдруг в организации окажутся однофамильцы? Что должны будут вывести комбо Имя и Отчество при выборе Фамилии в таком случае?)...
Так я к чему. Можно выводить целиком ФИО в одном комбо (вместо того, чтобы разбивать их по трем) тем же макаром, как это делали Вы:

Delphi

1	sComboBox1.Items.Add(FieldByName('Fio').AsString+' ' +FieldByName('Name').AsString+ ' '+FieldByName('Otchestvo').AsString);

И все

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	24.06.2018, 18:05	4
	Сообщение от dartmi такой вариант не работает откуда берутся итемы в данном случае на это не влияет. 0

@Ruella 472 / 161 / 80 Регистрация: 07.10.2015 Сообщений: 379
	24.06.2018, 18:12	5
	dartmi, прошу прощения, но лично мне вообще стало непонятно, где у Вас что и откуда берется почему комбо у Вас дублируются? и зачем вообще Вам для имени/отчества сотрудников отдельные комбо? Может, лучше свести все в один в виде ФИО? А я бы вообще предпочла вместо комбо использовать dblookupcombobox. Но, не имея ни малейшего представления о Вашем проекте, сложно о чем-то говорить. Может, выложите? 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	24.06.2018, 18:17	6
	Сообщение от Ruella Может, выложите? это тайный проект 0

	25.06.2018, 00:12

Как сделать, чтобы в при выборе одного итема в ComboBox, в другом ComboBox выводился итем того же индекса?

Решение