SumTotal在每組結束時經典asp

Question

我想要做的是在最後一行中得到總和。這裏有2組itens與總和的例子：

我：

1000 (group number) 

TitleUm TitleTres TitleQuatro 
Apple  1   20 
Pear  5   12 

1001 (group number) 

TV  1   20 
Mobile 1   12 
Car  1   15 
Bicycle 1   5 

TOTAL 10   84 

---

我要找：

1000 (group number) 

TitleUm TitleTres TitleQuatro 
Apple  1   20 
Pear  5   12 

TOTAL 6   32 

---

1001 (group number) 

TV  1   20 
Mobile 1   12 
Car  1   15 
Bicycle 1   5 

TOTAL 4   52 

---

代碼波紋管做幾乎所有的東西，列出項目，每行每一個值，但它現在展示的總和：

<table class="Itens"> 
<% 
currentGroupName = "" 
previousGroupName = "" 
Do Until ItensList.EOF 
currentGroupName = ItensList("oito") 
Um= ItensList("um") 
Tres= ItensList("tres") 
Quatro= CCur(ItensList("quatro")) 

If currentGroupName <> previousGroupName Then 
%> 

<tr> 
<td><% Response.Write currentGroupName %></td> 
</tr> 
<tr>    
<th><% Response.Write TituloUm %></th> 
<th><% Response.Write TituloTres %></th> 
<th><% Response.Write TituloQuatro %></th> 
</tr> 

<% 
End If 
%> 

<% 
Um= CCur(ItensList("um")) 
Tres= CCur(ItensList("tres")) 
Quatro= CCur(ItensList("quatro")) 
%> 

<tr> 
<td><% Response.Write Um %></td> 
<td><% Response.Write Tres %></td> 
<td><% Response.Write Quatro %></td> 
</tr> 

<% 
previousGroupName = currentGroupName 
ItensList.MoveNext 
Loop 
ItensList.Close 
%> 

<tr class="Total"> 
<td>TOTAL</td> 
<td><% Response.Write ShowSumTotalTresHere %></td> 
<td><% Response.Write ShowSumTotalQuatroHere %></td> 
</tr> 
</table> 

感謝您的幫助

Answer 1

每到一個變量添加像內環路這樣的：

<% 
SumSomething = 0 

Do Until objRs.EoF 
    SumSomething = SumSomething + objRs("SomeValue") 
objRs.MoveNext 
Loop 
%> 
... 
<tr> 
    <td><%= SumSomething%></td> 
... 

Answer 2

你需要保持一個運行總計而你的循環，採取下面我舉的例子的代碼，我在循環之前宣佈了兩個新的增值經銷商：

Total_Tres   = 0 
Total_Quatro  = 0 

然後，我在你的循環incremement這些：

'Maintain Running Total 
Total_Tres   = Total_Tres + Tres 
Total_Quatro  = Total_Quatro + Quatro 

最後，輸出的總增值經銷商：

<td>TOTAL</td> 
<td><% = Total_Tres %></td> 
<td><% = Total_Quatro %></td> 

完整的例子（未經測試）

<table class="Itens"> 
<% 
currentGroupName = "" 
previousGroupName = "" 
Total_Tres   = 0 
Total_Quatro  = 0 
Do Until ItensList.EOF 
    currentGroupName = ItensList("oito") 
    Um     = ItensList("um") 
    Tres    = ItensList("tres") 
    Quatro    = CCur(ItensList("quatro")) 

    If currentGroupName <> previousGroupName Then 
     %> 
     <tr> 
      <td><% = currentGroupName %></td> 
     </tr> 
     <tr>    
      <th><% = TituloUm %></th> 
      <th><% = TituloTres %></th> 
      <th><% = TituloQuatro %></th> 
     </tr> 
     <% 
    End If 

    Um  = CCur(ItensList("um")) 
    Tres = CCur(ItensList("tres")) 
    Quatro = CCur(ItensList("quatro")) 
    %> 
    <tr> 
     <td><% = Um %></td> 
     <td><% = Tres %></td> 
     <td><% = Quatro %></td> 
    </tr> 
    <% 
    '#### Maintain Running Total 
    Total_Tres   = Total_Tres + Tres 
    Total_Quatro  = Total_Quatro + Quatro 

    '### Flag current group 
    previousGroupName = currentGroupName 
    ItensList.MoveNext 
Loop 
ItensList.Close 
%> 
<tr class="Total"> 
<td>TOTAL</td> 
<td><% = Total_Tres %></td> 
<td><% = Total_Quatro %></td> 
</tr> 
</table>