Cita:
Empezado por Bant
como podria conocer el registro que se ha seleccionado en el ComboBox para cargarlo en un edit
|
Código Delphi
[-]
Close;
SQL.Clear;
SQL.Text := 'select Descripcion from Inventario where Codigo =' + ComboBox1.Text;
Open;
if (not dm2.ADOConsulta.Eof) then begin
editDescripcion.Text := dm2.ADOConsulta.FieldByName('Descripcion').AsString;
editPrecio.Text := dm2.ADOConsulta.FieldByName('Precio').AsString;
end;
Cita:
Empezado por Bant
pero en el campo [Descripcion] para hacerlo con el campo [Precio] más adelante.
|
Aprovecha la misma consulta para cargar todo el registro, no lances una consulta para cada valor.
Para ello cambia la consulta por:
Código Delphi
[-]
SQL.Text := 'select * from Inventario where Codigo =' + ComboBox1.Text;