Somar valores de um loop

[antonio_sp 0]

Eu possuo uma tabela onde há uma coluna com valores.Fiz u select nessa tabela e joguei eu um loopWhile not val_reg. eofval_reg("valores")val_reg.MoveNext()WendE ficou assim1510053445Agora preciso somar esses valores durante 30 dias e depois começar novamente.Como faço isso? somar esse loop? Obrigado a todos

[André Baltieri 0]

Eu possuo uma tabela onde há uma coluna com valores.Fiz u select nessa tabela e joguei eu um loopWhile not val_reg. eofval_reg("valores")val_reg.MoveNext()WendE ficou assim1510053445Agora preciso somar esses valores durante 30 dias e depois começar novamente.Como faço isso? somar esse loop? Obrigado a todos

Dim ContaValores as integerWhile not val_reg. eofval_reg("valores")ContaValores=CSng(ContaValores + val_reg("valores"))val_reg.MoveNext()WendDepois na hora de exibir na tela só chamar eleContaValoresBy André Baltieri http://forum.imasters.com.br/public/style_emoticons/default/joia.gif