Pasar datos de un DBGrid a otro DBGrid

[ecfisa]

Hola Lucas.

Es que así no funciona la cosa... Simplificando mucho el concepto, un TDBGrid es la representacíón visual del valor de los campos de una tabla o consulta, no trabaja por sí sólo.

No sé que deseas hacer con los campos del registro seleccionado en DBGrid1, en gran medida de eso depende que camino seguir.

Un saludo.

[lucas05]

Hola ecfisa, nuevamente gracias. En otros temas del foro vi que hacían algo parecido, seleccionaban un registro de una grilla presionaban un button y pasaban los datos de ese registro a varios Edit.
Lo que intento hacer es lo mismo, pero en vez de pasar los datos a los Edit quiero pasar los datos a otra grilla.
Osea volver a mostrar el mismo registro de la primera grilla en la segunda grilla, pero no todos los registros sino los que selecciono de la primera grilla

Gracias por tu atención.

[ecfisa]

En otros temas del foro vi que hacían algo parecido, seleccionaban un registro de una grilla presionaban un button y pasaban los datos de ese registro a varios Edit.
Hola Lucas.

Lamentablemente no es el mismo caso, pero una forma que se me ocurre es:

1. Pone un TClientDataSet (ClientDataSet1) y otro TDataSource (DataSouce2) asociado a él, por último asociá el DBGrid2 a DataSource2
2. Con el mouse posicionado en el componente ClientDataSet1 doble click sobre él. Se abrirá el Field Editor.
3. Ya abierto el Field Editor, botón derecho del mouse sobre él y elegí New Field.
4. En Name poné el (*)mismo nombre que el 1° campo del ADOQuery, en Type el mismo tipo que el 1° campo del ADOQuery. Y si requiere valor, en Size dale el mismo que el 1° campo del ADOQuery.
5. Repetí los pasos del punto 4 para todos los campos que haya en el ADOQuery.

(*) puede ser el que gustes pero para simplificar te aconsejo el mismo.

Es decir que ClientDataSet1 tiene que tener una copia de todos los campos del ADOQuery1.

Luego el código:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.CreateDataSet;
  ClientDataSet1.Open;
end;

procedure TForm1.btnPasarRegistroClick(Sender: TObject);
var
  i: Integer;
begin
  ClientDataSet1.Append;
  with DBGrid1.DataSource.DataSet do
   for i:= 0 to FieldCount-1 do
     ClientDataSet1.Fields[i].Value := Fields[i].Value;
  ClientDataSet1.Post;
end;
...

Haciendo click sobre el TButton se irá copiando a DBGrid2 el registro que esté seleccionado en DBGrid1.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por ecfisa

Es que así no funciona la cosa... Simplificando mucho el concepto, un TDBGrid es la representacíón visual del valor de los campos de una tabla o consulta, no trabaja por sí sólo.

+1.
Creo que esta es la clave.

Empezado por lucas05

Osea volver a mostrar el mismo registro de la primera grilla en la segunda grilla, pero no todos los registros sino los que selecciono de la primera grilla

Sigues sin responder a la pregunta importante.
¿Y una vez que has pasado el registro al segundo DBGrid, qué vas a hacer con él?
¿Cerrarás el formulario y ya está?
¿Debe quedar constancia en algún sitio?
¿El usuario va a modificarlo y debe quedar guardado en Base de Datos?
¿Vas a generar un listado?
.... ¿Qué pasa después cuando el usuario vea ese registro en el segundo DBGrid?

Creo que eso es lo que estaba intentando preguntar ecfisa. Lo que vayas a hacer con esos datos es lo que determina la solución óptima.

[lucas05]

Hola Neftali, gracias por sumarte. Una vez que paso el o los registros a la segunda grilla (pueden ser uno o varios) lo que quiero hacer es sumar el campo "precio" (este campo tiene un valor numérico) de todos los registros que están en la segunda grilla. Y el valor de la suma guardarla en la base de datos.

Muchas Gracias.

[ecfisa]

Hola.

Si hiciste el código anterior, basta con que agregues esta función:

Código Delphi [-]
function SumarPrecio(CDS: TClientDataSet): Currency;
begin
  Result:= 0;
  with CDS do
  begin
    First;
    while not Eof do
    begin
      Result:= Result + CDS.FieldBYName('PRECIO').AsCurrency;
      Next;
    end
  end
end;

Y cuando desees calcular los precios que estan en DBGrid2 solo tenés que llamarla.

Ejemplo donde se muestra la sumatoria:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  ShowMessage(CurrToStr(SumarPrecio(ClientDataSet1)))
end;

Del mismo modo podrías asignarlo a un campo de una tabla de tu bd, como por ejemplo:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  with DataModule1.TablaDondeSeSumanLosPrecios do
  begin
    Edit;
    FieldByName('SUMA').AsCurrency:= SumarPrecio(ClientDataSet1);
    Post
  end
end;

Saludos.

[lucas05]

Hola ecfisa, gracias por tu aporte. Aplique tu código y funciona bien.
El único problemita es que cuando guardo el resultado de la suma en la base de datos lo guarda siempre en el mismo registro.
Ejemplo: hago una suma y lo guarda en el registro 1, vuelvo a realizar otra suma y en vez de guardarlo en el registro 2, lo vuelve a guardar en el registro 1, o sea lo sobreescribe.
Como puedo resolverlo.

Nuevamente Gracias.

[Neftali [Germán.Estévez]]

Empezado por lucas05

Hola Neftali, gracias por sumarte. Una vez que paso el o los registros a la segunda grilla (pueden ser uno o varios) lo que quiero hacer es sumar el campo "precio" (este campo tiene un valor numérico) de todos los registros que están en la segunda grilla. Y el valor de la suma guardarla en la base de datos.

OK, a esto me refería.
Ves, yo en este caso, si los registros del segundo DBGrid no se van a guardar, sino que sólo vas a guardar la suma resultante, tal vez hubiera utilizado en el segundo un TStringGrid, con 1 o 2 campos significativos y el PRECIO.