新微赢技术网

标题: [ＳＯＳ]月结清单中如何显示每天小结？{没人会吗？} [打印本页]

作者: ﹫.★…ㄨ★ 时间: 2010-1-14 07:54
标题: [ＳＯＳ]月结清单中如何显示每天小结？{没人会吗？}
做了一商店财务系统（ASP+SQL），想实现在月底查帐页面看到当月每日小计和总计。请指教！
关键问题：如果要是按日为单位查询数据库，则在一个页面上要查询30多次！如果按月查询数据库，却又不会在获得的记录集中过滤出每天的记录进行求和！
注：每天的销售记录都在1条以上。
数据库：shop 表:sell 管理员:sa 密码:
表项：单据编号日期（长）金额（num)
预期效果：
1日小计：XXXX元
2日小计：XXX元
3日小计：XXXX元
……
31日小计：XXXX元
————————————
总计：XXXXX元

没人会吗？！

作者: 大师傅 时间: 2010-1-14 07:54
这论坛的水平。。。。。

作者: 漫步烟雨中 时间: 2010-1-14 07:54
sell 表的结构？？

作者: 绝爱吗? 时间: 2010-1-14 07:55
<%
Dim GetMonthMaxDay
GetMonthMaxDay=Day(DateAdd("d", -1, DateAdd("m", 1, CDate(year(date) &"-"& month(date()) &"-1"))))
for i = 1 to GetMonthMaxDay
SelNewDay = Cdate(year(date()) &"-"& month(date()) &"-"& i)
MonthCount = 0
SQL = "select [要统计的字段price] from [table] where date = '"& SelNewDay &"'"
rs.open Sql,conn,1,1
do while not rs.eof
MonthCount = MonthCount + rs("price")
rs.movenext
loop
response.Write(SelNewDay&"合计："& MonthCount &" 元<BR><BR>")
next
%>

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)