[Resolvido] Somando Valores

[Marcelo_Pescador 0]

Galera, tenho um código em .asp e preciso somar os valores no final, como faço ?

 

'Numero de controle

<%=rsQuery("numero")%>

 

'Nome da pessoa

<%=rsQuery("nome")%>

 

'Valor que quero somar no final

<%=rsQuery("valor")%>

 

Quero que esse campo "<%=rsQuery("valor")%>", seja somado para que de um valor total no final em outro campo ?

[hargon 64]

No inicio do código você declara uma variável e depois armazena o valor 0 nela.

 

No decorrer do código, sempre após ler o campo rsQuery("valor"), você soma o valor do campo à variável declada. Por exemplo:

total = total + rsQuery("valor")

[Marcelo_Pescador 0]

Coloquei dessa forma !

Não deu certo não !

 

<div align="right" class="cellstyle"><%=rsQuery("valor")%></div>

 

<div align="right"><% total = total + rsQuery("valor")%></div>

[hargon 64]

Alguma mensagem de erro? No inicio do código você informou 0 à variável total?

[Marcelo_Pescador 0]

Apareceu o seguinte erro: "erro '80020009'"

 

Não coloquei 0 não no início do código não !!

Coloquei somente dessa forma que você me mandou !!

[hargon 64]

Eu falei para DECLARAR A VARIÁVEL E INFORMAR 0, COMO VALOR.

 

O que você fez foi usar o EXEMPLO que citei.

 

Faz isso e posta o resultado.

 

Obs. Quando postar o erro, informe a mensagem de erro completa. Só essa linha não ajuda muito.

[Marcelo_Pescador 0]

O código da página toda é esse:

 

<table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
<tr bordercolor="000000"> 

<% 
item  = 1 
do while item <= TamanhoPagina and not rsQuery.eof 
numero=rsQuery("numero")
%>

<% 
For n = 0 To limite %>
<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
numero=rsQuery("numero")
%>
  <td width="26" bordercolor="#666666" bgcolor="#FF9999"><div align="center" class="style9"><%=rsQuery("numero")%></div></td>
  <td width="295" height="10" bordercolor="#666666" bgcolor="#FF9999"><div align="left" class="style9"><%=rsQuery("nome")%></div></td>
  <td width="222" bordercolor="#666666" bgcolor="#FF9999"><div align="center" class="style9"><%=rsQuery("email")%></div></td>
  <td width="167" bordercolor="666666" bgcolor="#FF9999"><div align="right" class="style9"><%=rsQuery("valor")%>,00</div></td>

<% rsQuery.Movenext
item = item + 1 
n = n + 1
loop %>
<% next %>
</tr>
<% loop %>
</table>

Vê se você pode me ajudar...Vlw !

[hargon 64]

<table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#666666" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">

<tr bordercolor="000000">

 

<%

dim totali

totali = 0

item = 1

do while item <= TamanhoPagina and not rsQuery.eof

numero=rsQuery("numero")

%>

 

<%

For n = 0 To limite %>

<%

Dim n

n = 0

do while n < colNum and NOT rsQuery.eof

numero=rsQuery("numero")

valor = rsQuery("valor")

if isnumeric(valor) then

totali = totali + valor

end if

%>

<td width="26" bordercolor="#666666" bgcolor="#FF9999"><div align="center" class="style9"><%=rsQuery("numero")%></div></td>

<td width="295" height="10" bordercolor="#666666" bgcolor="#FF9999"><div align="left" class="style9"><%=rsQuery("nome")%></div></td>

<td width="222" bordercolor="#666666" bgcolor="#FF9999"><div align="center" class="style9"><%=rsQuery("email")%></div></td>

<td width="167" bordercolor="666666" bgcolor="#FF9999"><div align="right" class="style9"><%=rsQuery("valor")%>,00</div></td>

 

<% rsQuery.Movenext

item = item + 1

n = n + 1

loop %>

<% next %>

</tr>

<% loop %>

</table>

[Marcelo_Pescador 0]

Tá complicado isso hein......Não mudou nada na página cara...!!!

Não sei o que faço mais....!

[hargon 64]

O que não mudou? Você testou o código que postei?

 

Troca ele pelo seu, e no final de tudo coloca response.write totali e veja se não mudou nada. No minimo tem que retornar 0.

[Marcelo_Pescador 0]

Coloquei assim:

 

<%
Dim n
n = 0 
do while n < colNum and NOT rsQuery.eof
numero=rsQuery("numero")
valor = rsQuery("valor")
if isnumeric(valor) then
	 totali = totali + valor
end if
%>
				<td width="26" bordercolor="#666666" bgcolor="#6699CC"><div align="center" class="style9"><%=rsQuery("numero")%></div></td>
				<td width="329" height="10" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">  <%=rsQuery("nome")%></div></td>
				<td width="245" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">  <%=rsQuery("email")%></div></td>
				<td width="90" bordercolor="666666" bgcolor="#6699CC"><div align="right" class="style9"><%=rsQuery("valor")%>,00</div></td>
<% rsQuery.Movenext
item = item + 1 
n = n + 1
loop %>
				<% next %>
			  </tr>
			  <% loop %>
		  </table></td>
	  </tr>
	  <tr>
		<td colspan="3"> </td>
	  </tr>
	  <tr>
		<td colspan="3"><table width="700" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
			<tr>
			  <td width="604" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
				  <div align="right">Valor Total :</div>
			  </div></td>
			  <td width="90" bgcolor="#6699CC" class="cellstyle"><div align="center" class="style8">
				  <div align="right"><span class="style9"><% Response.Write=rsQuery("totali")%></span></div></div></td>
			</tr>
		</table>

Aparece esse erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

 

O objeto não dá suporte para a propriedade ou método: 'rsQuery(...).Write'

[hargon 64]

1º) Não precisa duplicar os posts. Leia às Regras do Fórum antes de postar.

 

2º) Altera essa linha <% Response.Write=rsQuery("totali")%> por <%=totali%>

[Marcelo_Pescador 0]

Eu vi que postei duas vezes....acabei enviando sem querer...

Agora funcinou...Valeu brother....

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif