Fazer a soma de itens qdo carrega um registro

Question

bom dia,estou encontrando dificuldades num assunto e queria ver se vcs podem me ajudar..queria usar uma fun��o para somar os itens de uma nota fiscal e jogar num label..mas queria da seguinte forma:te...

Delphi32 · Answer

Qual banco de dados e componentes de acesso voc� est� usando?...

Rafs · Answer

Voc� pode colocar no evento OnDataChange do componente DataSource....

Eric.miranda · Answer

valeu por ter respondido galera..delphi32,estou usando tables e queries.Rafs,tentei do modo que vc me disse mas deu erro de access violation..minha procedure � a seguinteprocedure TFrmNotasfiscais.Calcula;var Valor: real;Begin Valor:= 0; While not Dtmdb.Itens.Eof do begin Valor:= Valor + Dtmdb.ItensValortotal.Value; Dtmdb.Itens.Next; end;frmnotasfiscais.Paneltotal.Caption:=FloatToStrf(Valor,ffcurrency,18,2);end;fiz a chamada dela no datamodule da seguinte formaprocedure TDTMDB.DsNotaFiscalDataChange(Sender: TObject; Field: TField);begin FrmNotasfiscais.Calcula;end;d� erro na parte dofrmnotasfiscais.Paneltotal.Caption:=FloatToStrf(Valor,ffcurrency,18,2);como posso resolver isso..valeu mesmo pela ajudaEric...

Osocram · Answer

[quote:a99a4d032d]d� erro na parte do frmnotasfiscais.Paneltotal.Caption:=FloatToStrf(Valor,ffcurrency,18,2); [/quote:a99a4d032d]Este erro deve estar acontecendo pq a variavel �VAlor� non esta inicializado no momento q vc chama a procedure... ou esta c um valor diferente... ou ainda vc esta acessando algo non permitido por ex. �frmnotasfiscais.Paneltotal.Caption� tenha certeza q este componente esta criado PanelTotalQto ao evento... eu coloco o calculo p fazer a soma no OnCalcField eu uso ClientDataSet... mas na Query tbm funciona isso... se non me engano... na Table nunca tentei.Tente eliminar as Tables.... ela limita mto seu programa e deixa mais lerdo dependendo do fluxo d dados usado....

F�rum Fazer a soma de itens qdo carrega um registro #257505