Вывод столбца БД в ListBox
Очень нуждаюсь в помощи. Не могу разобраться с проблемой уже часов 15( Я только учусь, поэтому не судите строга. Вообщем проблема такая: у меня есть таблица Resalt, комбобокс (КБ) 1 и 2. КБ1 и 2 заполняется значениями из таблицы Grumma.name gruppa. С КБ все вопрядке, заполняются нормально. Теперь, когда я выбрала в КБ каку-нибудь группу и нажала на кнопку, в ListBox должны попасть значения из таблицы Resalt столбец Obshie. Значения в ListBox попадают, но криво. Например у меня в КБ : Асу, Повт, ИСТб.... Я выбираю Асу. ТОгда в ListBox ничегго не попадает. Если выберу Повт, то попадают значения списка АСУ. А если ИСТб, то значения списка Повт
вот код заполнения КБ
procedure TForm7.FormShow(Sender: TObject);
begin
DataModule3.ADOQuery5.SQL.Clear;
DataModule3.ADOQuery5.SQL.Text:='Se lect Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
DataModule3.ADOQuery5.open;
ComboBox2.Items.Clear;
DataModule3.ADOQuery5.First;
while (not DataModule3.ADOQuery5.Eof) do
begin
ComboBox1.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
ComboBox2.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
DataModule3.ADOQuery5.Next;
end;
end;
а это код вывода в лист грид
if (Combobox1.Text <> '') and (Combobox2.Text <> '')then
begin
ListBox1.Clear;
ListBox2.Clear;
DataModule3.ADOQuery4.SQL.Clear ;
DataModule3.ADOQuery4.SQL.Text:='Se lect Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemI ndex));
DataModule3.ADOQuery4.open;
DataModule3.ADOQuery4.First;
while (not DataModule3.ADOQuery4.Eof) do
begin
ListBox1.Items.Add(DataModule3.ADOQ uery4.Fields[0].AsString);
DataModule3.ADOQuery4.Next;
end;
DataModule3.ADOQuery11.SQL.Clear ;
DataModule3.ADOQuery11.SQL.Text:='S elect Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox2.ItemI ndex));
DataModule3.ADOQuery11.open;
while ( not DataModule3.ADOQuery11.Eof) do
begin
ListBox2.Items.Add(DataModule3.ADOQ uery11.Fields[0].AsString);
DataModule3.ADOQuery11.Next;
end;
end;