Problemas com soma

[DackAle 0]

E ae galera

 

Seguinte to fazendo um Join para pegar alguns registros de outra tabela e etc...

 

Bom preciso somar os valores dos campos pegos... fiz assim

 

ASP

[*]SQL="SELECT Jantar_S.Produto,Produtos.Cod,Produtos.Preco FROM Jantar_S INNER JOIN Produtos ON Jantar_S.Produto = Produtos.Cod WHERE Jantar_S.Cod_J=" & produto2(0,0)

 

[*]SET RS = Server.CreateObject("Adodb.recordset")

 

[*]RS.Open SQL,Conexao,3,3

 

[*]

 

[*]numero = 0

 

[*]

 

[*]if not rs.eof then

 

[*]while not rs.eof

 

[*]

 

[*]if isempty(preco) Then

 

[*]preco = formatcurrency(rs("preco"))

 

[*]else

 

[*]preco = formatcurrency(preco) + formatcurrency(rs("preco"))

 

[*]end if

 

[*]

 

[*]rs.movenext

 

[*]wend

 

[*]end if

 

[*]

 

[*]rs.close

 

[*]SET RS = Nothing

 

Ou seja ele faz um looping e vai adicionando os valores, o problema é que ele ta somando string, tipo concatenando ao inves de SOMAR os valores, ele fica assim "R$ 2,00R$ 13,00" ao inves de "R$ 15,00"

 

Tentei assim

 

ASP

[*]if isempty(preco) Then

 

[*]preco = formatcurrency(rs("preco"))

 

[*]else

 

[*]preco = formatcurrency(preco + rs("preco"))

 

[*]end if

 

Mas a mesma coisa...

 

Nunca obtive esse erro, estranho, alguem tem alguma sugestão ?

 

Abraçosss

[Alex_ps 0]

DackAle,Para realizar uma soma, você não precisa somar numeros, ou ainda, variáveis do subtipo Integer, no caso?Quando você está colocando deste jeito, que inclue o R$, você não transforma seu "preco", em como você disse, em uma concatenação de pequenas variáveis do subtipo strings R$ X,XX?E se você realizar a operação e formatar a moeda no final.Se ainda assim não der, use preco = Cint(preco) + Cint(rs("preco")) e depois formate a moeda.<%if isempty(preco) Thenpreco = formatcurrency(rs("preco"))elsepreco = preco + rs("preco")preco = formatcurrency("preco")end if%>Acho que é isto.Alex_ps

[DackAle 0]

mas o cint vai arredondar certo exemplose vier como 2,10 e jogar o cint, ele vai deixar como 2 só, não ?

[Mário Monteiro 179]

tenta fazer assimformatcurrency(preco + rs("preco"))e se não funcionar apelaformatcurrency(CDBL(preco) + CDBL(rs("preco")))Falow