9 respuestas en este tema

[edgar_prospero]

que hay amigos pues por aqui de nuevo ahora con otro problemilla resulta que voy metiendo registros  a un dbgrid por medio de un clientdataset y no se guardan hasta que le doy a un boton guardar bueno ahi todo bien si se van agregando mis registros sin ningun problema el asunto esta en que quiero que mediante vaya metiendo un registro se vaya sumando una columna llamda subtotal pero el resultado me lo vaya mostrando en un edit el codigo con lo que agrego es el siguiente:

delphi

form4.clientdataset1.Append;
 
	form4.clientdataset1['codigo'] := codigo.Text;
	form4.clientdataset1['descripcion'] := descripcion.Text;
	form4.clientdataset1['precio'] := precio.Text;
  form4.clientdataset1['cantidad'] := cantidad.Text;
  form4.clientdataset1['folio'] := folio.Text;
  form4.clientdataset1['fecha'] := fecha.Date;
  form4.clientdataset1['subtotal'] :=  floatToStr( StrTofloat(cantidad.Text) * StrTofloat(precio.Text) );

[Fenareth]

Y ya tienes alguna idea amigo ??? 

Saludox !

[edgar_prospero]

en alguna ocasion lo hice con un stringrid de la siguiente manera:

delphi

procedure TForm4.codigoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 
var
  k, suma: integer;
 
begin
      suma := 0;
 
  for k := 0 to StringGrid1.RowCount - 1 do
 
      suma := suma + StrToIntdef(StringGrid1.Cells[4, k + 1], 0);
 
 total.Caption := intToStr(suma);
 
 
end;

pero esta forma no se como adaptarla para sumar en un dbgrid

[enecumene]

Debes hacer uso del OnAfterPost del ClientDataSet para mostrar la sumatoria en un TEdit u otro sitio, algo asi:

delphi

procedure TForm1.ClientDataset1AfterPost(DataSet: TDataSet);
var Total: Double;
begin
   //Inicializamos la variable
   Total := 0;
 
   ClientDataSet1.First;
   while not ClienteDataSet1.eof do begin
      Total := Total + clientdataset1.FieldByName('subtotal').AsFloat;
      ClientDataSet1.Next;
   end;
 
   Edit1.Text := FormatFloat('$#,##0.00', Total);
end;
 

OJO: Lo hice al vuelo, puede que tenga algún bug, pero al menos te da la idea

Saludos.

[edgar_prospero]

gracias por responder amigo ya lo adecue pero hay un problemilla meto el primer registro y no me aparece nada en el label es apartir deñl segundo registro cuando empieza a aparecerme el resultado

[enecumene]

gracias por responder amigo ya lo adecue pero hay un problemilla meto el primer registro y no me aparece nada en el label es apartir deñl segundo registro cuando empieza a aparecerme el resultado

Coloca tu adecuación para ver qué falta.

[edgar_prospero]

pues mas bien modifique cambiando double por total me imagino que fue error de dedo como dicen por hacerlo rapido el ejemplo :

delphi

procedure TForm4.ClientDataSet1AfterPost(DataSet: TDataSet);
 
var Total: double;
begin
   ClientDataSet1.First;
   while not ClientDataSet1.eof do begin
      total := total + clientdataset1.FieldByName('subtotal').AsFloat;
 
      ClientDataSet1.Next;
   end;
 
     label10.Caption := FormatFloat('$#,##0.00', total);
 

[Wilson]

No puedes ver el resultado a la primera porque estás usando el evento AfterPost, y  el cálculo se efectúa  solo al llamar post al TClientDataset (esto pasa cuando cambias de línea en el DBGrid), si usas  campos persistentes realiza el mismo cálculo en el evento OnChange del campo subtotal.

Saludos

[cadetill]

Ya que usas un TClientDataSet..... por qué no lo "exprimes" y haces ese sumatorio con un campo agregado y luego muestras el resultado (que sería automático) en un TDBText?

Nos leemos

[enecumene]

Te faltó inicializar la variable Total := 0;, tembién puedes hacer lo que te indica cadetill.

Saludos.