Bruninn
Membros-
Total de itens
5 -
Registro em
-
Última visita
Sobre Bruninn
Bruninn's Achievements
0
Reputação
-
quando for a primeira linha do dbgrid...
-
Como ficaria o comando if ...pra se for a primeira linha do dbgrid que estiver selecionada?
-
Consegui resolver! ficou assim: tbCaixa.First; total_anterior := tbCaixaTOTAL.AsFloat; tbCaixa.Next; while not tbCaixa.Eof do begin tbCaixa.Edit; tbCaixaTOTAL.AsFloat := total_anterior + tbCaixaCREDITO.AsFloat - tbCaixaDEBITO.AsFloat; tbCaixa.Post; total_anterior := tbCaixaTOTAL.AsFloat; tbCaixa.Next; end; tbCaixa.Close; tbCaixa.Open; vlw pela ajuda...se não fosse por você eu não teria conseguido! :D
-
olá Micheus...vlw pela ajuda, mas na verdade o meu problema é o seguinte: na minha tabela (tbCaixa) tem os seguintes campos: credito, debito e total. O total = total + credito - debito que foram digitados. Porém, quando faço uma exclusão do registro, os valores do total ficam errados, como mostra na imagem. Antes de excluir: Depois de excluir: Gostaria que, quando eu excluisse um registro...pegasse o valor do total acima do excluido e somasse com o valor do credito/debito do abaixo...fazendo com que todos os registros que estavam depois do que foi deletado fiquem certos. Com o código que passei anteriormente funcionaria certinho se não fosse pelo looping que não parou no último registro... desde já agradeço pela ajuda
-
Olá, fiz este código no evento AfterDelete de uma Table: tbCaixa.Prior; while not tbCaixa.Eof do begin total_anterior := tbCaixaTOTAL.AsFloat; tbCaixa.Next; tbCaixa.Edit; tbCaixaTOTAL.AsFloat := total_anterior + tbCaixaCREDITO.AsFloat - tbCaixaDEBITO.AsFloat; tbCaixa.Post; end; tbCaixa.Close; tbCaixa.Open; Porém, mesmo quando chega na última linha de registro da minha tabela ele continua realizando a ação dentro do while...alguém sabe porque e como arrumar isso? vlw