dblookupcombobox строки

[SGroot]

здравствуйте, подгрузил я БД Access в dblookupcombobox и все из 1 столбца выводит, а как мне сделать так чтобы когда я выбираю из dblookupcombobox какое нибудь поле и в DBEdit выводит строку из 2 столбца, которую я выбрал из 1 столбца.

ну выбрал в dblookupcombobox строку и в Edit догружается 2 столб из этой строки. как-то так...

[Mat Bourn]

Вот. Посмотри. Так ты хотел сделать ?

[SGroot]

да! так, спасибо большое) но что-то я плохо пока разберусь(
у тебя только до второй строчки показывают данные, как сделать 3 и 4-ую? помоги пожалуйста)

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin

if ( DBLookupComboBox1.KeyValue = 1 ) then

begin
ADOQuery2.Parameters.ParamByName('X').Value := 1;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;
end

else

ADOQuery2.Parameters.ParamByName('X').Value := 2;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;

[Mat Bourn]

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin

if ( DBLookupComboBox1.KeyValue = 1 ) then      // 1 это номер выбранной строки
begin
ADOQuery2.Parameters.ParamByName('X').Value := 1;    //   id номер в бд
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;
end;



if ( DBLookupComboBox1.KeyValue = 2 ) then
begin
ADOQuery2.Parameters.ParamByName('X').Value := 2;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;
end;



if ( DBLookupComboBox1.KeyValue =3 ) then
begin
ADOQuery2.Parameters.ParamByName('X').Value := 3;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;
end;



if ( DBLookupComboBox1.KeyValue = 4 ) then
begin
ADOQuery2.Parameters.ParamByName('X').Value := 4;
ADOQuery2.Active:=false;
ADOQuery2.Active:=true;
DBEdit1.Text :=  ADOQuery2.FieldByName('Vivod2').AsString;
end;   // выделеный код продолжаеш добавлять меняя две цифры



end;
end.

[SGroot]

ах вот в чем дело, я else еще добавлял... огромное спасибо тебе) выручил)))