asp累加如何将总数量、总金额显示在某日最后一条数据的备注栏？

原创于 2017-01-02 04:29:24 发布 · 1.3k 阅读

CC 4.0 BY-SA版权

在ASP中，如何将每日销售的总数量和总金额只显示在每个日期的最后一条数据的备注栏？通过遍历记录集并根据日期进行累加计算，可以实现这一目标。代码示例中，利用ADODB.Recordset对象查询销售数据，按日期排序，通过比较日期变化来累加数量和金额，并在备注栏中输出日累计结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据累加结果显示，我只想在某日最后一条数据的备注栏显示总数量和总金额，如何做！

[code=vb][<%set rs=server.createobject("adodb.recordset")
sql=("select * from 销售 order by 销售日期 ")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有数据！"
    else
%>
<table border="1" width="100%" id="table1" cellspacing="0">
<tr>
<td>数量</td>
<td>售价</td>
<td>合计</td>
<td>销售日期</td>
<td>备注</td>
</tr>
<%dim depname
for m=1 to rs.PageSize
    shuliang=rs("数量")
    jine=rs("数量")*rs("售价")
    if depname<>Rs("销售日期") Then
       total_num=0
       total_mon=0
    else
       total_num=total_num+shuliang
       total_mon=total_mon+jine
    end if
%>
<tr>
<td><%=rs("数量")%></td>
<td><%=rs("售价")%></td>
<td><%=formatcurrency (jine,2)%></td>
<td><%=rs("销售日期")%></td>
<td><%Response.Write "日累计："&total_num&"件,"&total_mon&"元"%>　</td>
</tr>
<%depname=Rs("销售日期")
    rs.MoveNext
     if rs.EOF then
       exit for
     end if
    next
end if
%>
</table>
/code]