Somma

[Gio&Ste]

Come faccio ad azzerarlo ad ogni ciclo?
devo fare perc1=0??
non penso, o almeno così ho provato ma non mi sembra di aver risolto il problema

[Roby_72]

Fai vedere quello che hai fatto.

Roby

[Gio&Ste]

<table width="80%"  border="1">
<tr>
  <% 	s1 = RecSet("S1")
		s2 = RecSet("S2")
		s3 = RecSet("S3")
		s4 = RecSet("S4")
		s5 = RecSet("S5")
		s6 = RecSet("S6")
		s7 = RecSet("S7")
  		somma1=0
		somma2=0
		somma3=0
		somma4=0
		somma5=0
		somma6=0
		somma7=0
		Do Until RecSet.EOF %>
	<% 	somma1=somma1+RecSet("S1")
		somma2=somma2+RecSet("S2")
		somma3=somma3+RecSet("S3")
		somma4=somma4+RecSet("S4")
		somma5=somma5+RecSet("S5")
		somma6=somma6+RecSet("S6")
		somma7=somma7+RecSet("S7")
		perc1=s1/somma1*100%>
    <th scope="row"><%=RecSet("Nome")%></th>
    <td><%=RecSet("S1")%></td>
    <td><%Response.Write(perc1)%></td>
    <td><%=RecSet("S2")%></td>
    <td></td>
    <td><%=RecSet("S3")%></td>
    <td></td>
    <td><%=RecSet("S4")%></td>
    <td></td>
    <td><%=RecSet("S5")%></td>
    <td></td>
    <td><%=RecSet("S6")%></td>
    <td></td>
    <td><%=RecSet("S7")%></td>
    <td></td>
    <td><%Response.Write(s1+s2+s3+s4+s5+s6+s7)%> </td>
    <td></td>
  </tr>
		  <%
  	RecSet.MoveNext
	Loop
	RecSet.Close%>
  <tr>
  <th scope="Totale">Totale</th>
 	<td><%Response.Write(somma1)%></td>
    <td></td>
    <td><%Response.Write(somma2)%></td>
    <td></td>
    <td><%Response.Write(somma3)%></td>
    <td></td>
    <td><%Response.Write(somma4)%></td>
    <td></td>
    <td><%Response.Write(somma5)%></td>
    <td></td>
    <td><%Response.Write(somma6)%></td>
    <td></td>
    <td><%Response.Write(somma7)%></td>
    <td></td>
    <td><% Response.Write(somma1+somma2+somma3+somma4+somma5+somma6+somma7)%></td>
    <td></td>
  </tr>
</table>

[Roby_72]

Non vedo dove stampi le percentuali.

Roby

[Gio&Ste]

Stavo facendo una prova solo su una colonna, ora l'ho evidenziata in rosso

<table width="80%"  border="1">
<tr>
  <% 	s1 = RecSet("S1")
		s2 = RecSet("S2")
		s3 = RecSet("S3")
		s4 = RecSet("S4")
		s5 = RecSet("S5")
		s6 = RecSet("S6")
		s7 = RecSet("S7")
  		somma1=0
		somma2=0
		somma3=0
		somma4=0
		somma5=0
		somma6=0
		somma7=0
		Do Until RecSet.EOF %>
	<% 	somma1=somma1+RecSet("S1")
		somma2=somma2+RecSet("S2")
		somma3=somma3+RecSet("S3")
		somma4=somma4+RecSet("S4")
		somma5=somma5+RecSet("S5")
		somma6=somma6+RecSet("S6")
		somma7=somma7+RecSet("S7")
		perc1=s1/somma1*100%>
    <th scope="row"><%=RecSet("Nome")%></th>
    <td><%=RecSet("S1")%></td>
    <td><%Response.Write(perc1)%> </td> 
    <td><%=RecSet("S2")%></td>
    <td> </td>
    <td><%=RecSet("S3")%></td>
    <td> </td>
    <td><%=RecSet("S4")%></td>
    <td> </td>
    <td><%=RecSet("S5")%></td>
    <td> </td>
    <td><%=RecSet("S6")%></td>
    <td> </td>
    <td><%=RecSet("S7")%></td>
    <td> </td>
    <td><%Response.Write(s1+s2+s3+s4+s5+s6+s7)%> </td>
    <td> </td>
  </tr>
		  <%
  	RecSet.MoveNext
	Loop
	RecSet.Close%>
  <tr>
  <th scope="Totale">Totale</th>
 	<td><%Response.Write(somma1)%></td>
    <td></td>
    <td><%Response.Write(somma2)%></td>
    <td> </td>
    <td><%Response.Write(somma3)%></td>
    <td> </td>
    <td><%Response.Write(somma4)%></td>
    <td> </td>
    <td><%Response.Write(somma5)%></td>
    <td> </td>
    <td><%Response.Write(somma6)%></td>
    <td> </td>
    <td><%Response.Write(somma7)%></td>
    <td> </td>
    <td><% Response. Write(somma1+somma2+somma3+somma4+somma5
+somma6+somma7)%></td>
    <td> </td>
  </tr>
</table>

[Roby_72]

E quindi?
Ti da errore? La calcola sbagliata?... su coraggio...

Roby

[Gio&Ste]

Non da errore, è che fa quello scherzetto che ho postato prima, il risultato che mi interessa è l'ultimo diciamo
quello del fine loop tanto per intenderci

[Roby_72]

Prova a metterli tutti e 7.

Roby