Ver Mensaje Individual
  #6  
Antiguo 12-08-2019
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Respuesta rápida:
Cita:
Empezado por Casimiro Notevi Ver Mensaje
.. olvida el dbgrid, debes extraer los datos del dataset, no del dbgrid.
Si ya tienes el valor en un campo del dataset, puedes acceder a el desde otros formularios, o en el evento AfterScroll del dataset puedes alimentar la variable que necesites.

Código Delphi [-]
unit Unit2;

interface 

uses
  Unit1;

// ..
var
  Form2: TForm2;
  global_ProductoCant; Extended;

implementation
// ..

procedure TForm2.MostrarValor;
begin
  ShowMessage(Form1.cdsVentaProductoCant.AsString);
end;

Código Delphi [-]
unit Unit1;

// ..

uses
  Unit2;

// ..

procedure TForm1.cdsVentaAfterScroll(DataSet: TDataSet);
begin
  global_ProductoCant := cdsVentaProductoCant.AsFloat;
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita