tengo el siguente probleminta
tengo un grid y quiero que cunado entre en la primera celda del grid un numero o codigo cuando salga de esa celda la segunda celda que es descripcion se llene con una con los datos de una consulta.
y lo estoy haciendo asi
Código Delphi
[-]procedure TFrmFactura.DBGrid1ColExit(Sender: TObject);
begin
dm1.QProducto.Active:= false;
Dm1.QProducto.SQL.Text:='SELECT * FROM producto WHERE CodigoProducto =:Cod';
Dm1.QProducto.Params[0].AsString:= DBGrid1.Columns[0].DisplayName;
dm1.QProducto.Active:=true;
if dm1.QProducto.RecordCount = 0 then
ShowMessage('Este codigo de Producto no existe');
dm1.TDetalleCodigoProducto.Value:= dm1.QProductoCodigoProducto.Value;
dm1.TDetalleDescripcion.Value:= dm1.QProductoDescripcion.Value;
el problema es que no se real mente como puedo pasar el parametro para la busqueda en el query en esta parte
Dm1.QProducto.Params[0].AsString:= DBGrid1.Columns[0].DisplayName;
no da error per siempre se cumple que no existe el producto