[Resolvido] Erro : Tipo incompatível

[Renan Setrini 0]

Mesma coisa, ao invés dele somar ele esta juntando os números

 

0,001.078,00

[Renan Setrini 0]

Ouvi dizer que o + em VB é concatenação e não soma.

É verdade? Como fazer?

[xanburzum 169]

você esta concatenando ele

FormatNumber(CInt("0" & rs1("V_R")), 2)

 

Total_Tudo = TotalProdutos + rs1("V_R")
Total_Tudo1=CInt(Total_Tudo)
FormatNumber(Total_Tudo,2)

[Renan Setrini 0]

Agradeço a dica de todos. Resolvi desta maneira.

 

Declarei

Dim TotalProdutos : TotalProdutos = Cdbl(TotalProdutos)

E dentro do While coloquei o seguinte:

TotalProdutos = TotalProdutos + Cdbl(rs1("V_R"))

E chamei a variável no final do código:

<center>R$ <%=FormatNumber(TotalProdutos,2,0)%></center>

 

Abraços

[xanburzum 169]

isso exatamente...

parabens