Somatoria de variaveis

[kdhlinha 0]

Salve galera

 

Meu problema eh o seguinte!!!

 

Eu to tentando fazer uma lista de vendas e em um text eu coloco o valor total da lista, mas acontece que eu naum to conseguindo faser a soma dos valores

 

eu to fazendo assim

dim valorcampodim valortotalrspd.movefirstwhile not rspd.eof  valorcampo=rspd("Valor")  valortotal=val(valorcampo + txttotal)  txttotal.text=valortotal  rspd.movenextwend

mas acontece que eu ja tentei todos os tipos e so deu coisas diferentes tipo:

soma os valores assim

-> 250,00 400,00 250,00

outro mostrou so o ultimo

oque eu faço?????????????????????????????

[Aroldo Zanela 0]

Colega,

 

Tente assim:

 

dim valortotal as Currencyrspd.movefirstValorTotal = 0while not rspd.eof valortotal= ValorTotal + Val(rspd("Valor")) rspd.MoveNextwendtxtTotal.Text=ValorTotal