0

私がやろうとしているのは、最後の行の合計を取得することです。合計を含む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

次のコードはほとんどすべてを実行し、アイテムと1行あたりの各値を一覧表示しますが、合計が表示されるようになりました。

<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>

助けてくれてありがとう

4

2 に答える 2

0

次のように、ループ内の変数にそれぞれを追加します。

<%
SumSomething = 0

Do Until objRs.EoF
     SumSomething = SumSomething + objRs("SomeValue")
objRs.MoveNext
Loop
%>
...
<tr>
  <td><%= SumSomething%></td>
...
于 2013-01-14T13:23:10.297 に答える
0

ループ中に実行中の合計を維持する必要があります。以下のコード例を見てください。ループの前に 2 つの新しい変数を宣言します。

Total_Tres          = 0
Total_Quatro        = 0

次に、ループでこれらをインクリメントします。

'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>
于 2013-01-14T13:23:40.923 に答える