Fórum Somar Colunas do DBGrid ??? #328509
02/09/2006
0
Qual a Melhor forma de somar uma coluna de um DBGrid ??? Digamos que eu tenha uma Coluna [i:cd083b7132]ProdutosVendidos[/i:cd083b7132] e eu gostaria de somar esta coluna e mostrar em um [b:cd083b7132][i:cd083b7132]Label[/i:cd083b7132][/b:cd083b7132]...
Antecipadamente Agradeço!!!
Adelor Silva
Curtir tópico
+ 0Posts
02/09/2006
Dadonas
Label1.Text := IntToStr(ProdutosVendidos.Value + oquevcquersomar.Value);
Dai vc vê como fica melhor vc fazer...
Gostei + 0
02/09/2006
Rm
procedure..........................
var
soma:real//pode ser integer se for o caso
begin
tableprodutos.disablecontrols;
soma:=0;
tableprodutos.first;
while not tableprodutos.eof do begin//abre o loop
soma:=soma+tableprodutosvendidos.value;
tableprodutos.next;
end;//fechou o loop
label1.caption:=formatfloat(´#,,0.00´,soma);
tableprodutos.first;
tableprodutos.enablecontrols;
soma:=0;
end;//fim
Pode colocar este código em um botão ou em um evento da tabela.Por ex no afterpost.Se for no evento tu pode querer que apos o calculo o registro
que estava sendo alterado volte a estar setado.Neste caso inclua um bookmark e blz.
Espero ter ajudado....
Gostei + 0
02/09/2006
Adelor Silva
[b:f5162c3ea9]RM[/b:f5162c3ea9]... da forma que vc passou, esta buscando direto da tabela... o que eu preciso na verdade é buscar do DBGrid que esta Ligado a Query... segue os nomes que estou utilizando no meu programa...
DMDados - DataModule
QryPesquisa01 - Query que faz a pesquisa
DSPesquisa01 - DataSouce que esta ligado a Query
Alguns Filds que aparecem no DBGrid...
CodLote, CodCost, CodProc...etc
Desculpas se antes não fui bem claro... Agradeço a Ajuda...
A Minha dúvida é a seguinte... se eu quiser somar a coluna CodProc, do DBGrid... (após a pesquisa ser feita) como eu faço?
Gostei + 0
02/09/2006
Adelor Silva
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)