Sumar Registros Con el mismo Id

[jovehe]

que tal

Muchas gracias por tu respuesta y por la rapidez de ella ya pribe la consulta y si funciona a la perfeccion, pero tengo una duda.

Lo que pasa que esos datos los extrae de otra tabla entonces yo quisiera pasarlos a otra tabla nada mas que tengo un pequeño problema al mandar los datos del query a la tabla nada mas me copia un solo registro y eso ocurre me imagino porque como los parametros del query los comparo con los valores que existen en esa tabla. Y la verdad no he podido hacer que copie los datos.

pongo un ejemplo del codigo que estoy utilizando porque la verdad no he podido.

 
Query1.close;
Query1.ParamByName('almacen').AsInteger:=Table1CIDALMACEN.AsInteger;
Query1.ParamByName('concepto').AsInteger:= able1CIDCONCEPTO.AsInteger;
Query1.Open;
  while not Qry1. eof do
   begin
	table2.append;
	table2CIDALMACEN.AsInteger := qry1IDAlmacen.AsInteger;
	table2CIDCONCEPTO.AsInteger := qry1IDConcepto.AsInteger;
	Table2CostoTotal.ascurrency := qry1total.ascurrency;
	table2TotalUnidades.asinteger := qry1total_unidades.asinteger;
	table2.post;
	qry1.next;
   end;

ojala y me puedan auxiliar ya que soy mas o menos novato en esto y la verdad a veces si me trabo.

Gracias por su ayuda y su atencion.

Saludos...