TEM COMO SOMA VALOR NA DBGRID ????

Question

Ai pessoa tudo bem?>>>Fa�o uma consulta com nome do cliente , usando  (Query , DataSouce, DBGrid, um Bot�o)  onde tenho uma Tabela com Campo &#8220; Valor&8221;  para armazena os  pre�os que ...

Raphael Oliveira · Answer

Vou colocar aki uma parte de um c�digo que tenho que faz isso que vc quer, s� que no meu a consulta � feita por um intervalo de datas, mas ve se vc consegue entender.
Qualquer coisa � s� avisar.

procedure TFrmPrincipal.SpeedButton1Click(Sender: TObject);
var
x: integer;
valor: Real; 
begin
 with Dm.QryCheque do
 begin
  DisableControls; // Desabilita os controles da Grid e evita o flic na tela
  close;
  Params[0].AsDate:=StrtoDate(MaskEdit1.Text); // Formato:MM/DD/AA
  Params[1].AsDate:=StrtoDate(MaskEdit2.Text);
  if not Prepared Then
    Prepare;
    Open;
    First;
    valor := 0;
    For x:=1 to Recordcount do // Ou colocar o RecordCount com -1
    Begin
      valor := valor + FieldByName(�Valor�).AsCurrency;
      Next;
    End;
    enableControls;
    label19.Caption := FormatFloat(�0,000.00�, Valor);
   end;
end;

Chacallgo · Answer

Amigo, se vc n�o puder colocar uma query auxiliar que d� a soma
ex:
qryAux.Close;
qryAux.SQL.Clear;
qryAux.SQL.Add( �Select Sum( Valor ) as Valor From Tabela� );
qryAux.Open;

Label.Caption := FormatFloat( �,0.00�, qryAux.FieldByName( �Valor� ).AsFloat );

, ent�o a melhor op��o e percorrer a sua tabela ex:
...
query1.Open;

query1.First;
while not query1.Eof do
begin
fValor := fValor + query1.FieldByName( �Valor� ).AsFloat; // ou
fValor := fValor + query1Valor.AsFloat // Depende se a sua query possui o campo em design time
query1.Next;
end;

Label.Caption := FormatFloat( �,0.00�, fValor );

Ah, no DBGrid n�o t�m uma linha de sum�rio, por�m existem componentes GRID que d�o essa op��o, como por exemplo o dxDBGrid da cole��o DevExpress
Tente conseguir o conjunto de componentes citado que � muito bom!

F�rum TEM COMO SOMA VALOR NA DBGRID ???? #155718