Como puedo hacer que en un tbdedit calcule la suma total de un campo en dbgrid
lagubea
13 de Marzo del 2004
Hola os agradeceria que me indicaran que codigo poner para que en un tbdedit me haga la suma total de un campo (subtotal) en un dbgrid. Mucha gracias.
Joaquin
13 de Marzo del 2004
Entiendo que lo que quieres hacer es sumar los datos de una columna de tu tabla y que el resultado visualizarlo en un campo DBEdit.
Si es asà supongo que este no está conectado a la misma base de datos que el campo que quieres sumar por tanto, para hacer la suma de la columna utiliza una sentencia SQL.
Select SUM(Nombre de campo) as Total From Tabla
ExecSQL();
Open();
y el resultado lo obtienes asÃ:
resultado := TablaSQL['Total'];
Si es asà supongo que este no está conectado a la misma base de datos que el campo que quieres sumar por tanto, para hacer la suma de la columna utiliza una sentencia SQL.
Select SUM(Nombre de campo) as Total From Tabla
ExecSQL();
Open();
y el resultado lo obtienes asÃ:
resultado := TablaSQL['Total'];
Karla
13 de Marzo del 2004
procedure TForm1.sumar;
var
total : Integer;
begin
total := 0;
With dbgrid1.datasource.dataset do
begin
First;
While not eof do
begin
total := total + Fieldbyname('Porcentaje').AsInteger;
Next;
end;
end;
label2.Caption:=inttostr(total);
end;
var
total : Integer;
begin
total := 0;
With dbgrid1.datasource.dataset do
begin
First;
While not eof do
begin
total := total + Fieldbyname('Porcentaje').AsInteger;
Next;
end;
end;
label2.Caption:=inttostr(total);
end;