Somar Colunas do DBGrid ???
Eu Uso Delphi 7.0 / MySQL / Zeos Acess
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!!!
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
Curtidas 0
Respostas
Dadonas
02/09/2006
No dataset existe um evento OnCalcFields. Dentro deste evento coloque um código parecido com esse:
Dai vc vê como fica melhor vc fazer...
Label1.Text := IntToStr(ProdutosVendidos.Value + oquevcquersomar.Value);
Dai vc vê como fica melhor vc fazer...
GOSTEI 0
Rm
02/09/2006
Olá.Pode usar um loop...
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....
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
Adelor Silva
02/09/2006
[b:f5162c3ea9]Dadonas[/b:f5162c3ea9]... da forma que vc passou não obtive sucesso... lamento
[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?
[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
Adelor Silva
02/09/2006
Consegui... com base no que você passou RM, modifiquei os parametros e funcionou a soma... muito obrigado... agradeço aos dois...
GOSTEI 0