"本月结存"定义个变量就可以了,举例<%
dim sPreMonth'用来存上条记录的月份
dim iMonthSum'存该月结存
dim iYearSum '存该年结存
dim iRemainSum'之前结存sPreMonth=""
iMonthSum=0
iYearSum =0
iRemainSum=46
iMonthSum=iMonthSum+iRemainSum
iYearSum=iYearSum+iRemainSumwhile not rs.eof
if sPreMonth=split(rs("日期"),"-")(0) then'同月
response.write rs("入库") & rs("出库")
else'下个月
'iMonthSum="" 上月结存清空
response.write iMonthSum'输出上月结存
response.write rs("入库") & rs("出库")
end if sPreMonth=split(rs("日期"),"-")(0)'存入上个月月份
iMonthSum=iMonthSum+cint(rs("入库"))-cint(rs("出库"))'累加本月差额
iYearSum=iYearSum+cint(rs("入库"))-cint(rs("出库"))'累加本年,不过这里没啥必要
wend
response.write iMonthSum'最后个月的结存
response.write iYearSum'输出年结存,不过这里等于月
%>
dim sPreMonth'用来存上条记录的月份
dim iMonthSum'存该月结存
dim iYearSum '存该年结存
dim iRemainSum'之前结存sPreMonth=""
iMonthSum=0
iYearSum =0
iRemainSum=46
iMonthSum=iMonthSum+iRemainSum
iYearSum=iYearSum+iRemainSumwhile not rs.eof
if sPreMonth=split(rs("日期"),"-")(0) then'同月
response.write rs("入库") & rs("出库")
else'下个月
'iMonthSum="" 上月结存清空
response.write iMonthSum'输出上月结存
response.write rs("入库") & rs("出库")
end if sPreMonth=split(rs("日期"),"-")(0)'存入上个月月份
iMonthSum=iMonthSum+cint(rs("入库"))-cint(rs("出库"))'累加本月差额
iYearSum=iYearSum+cint(rs("入库"))-cint(rs("出库"))'累加本年,不过这里没啥必要
wend
response.write iMonthSum'最后个月的结存
response.write iYearSum'输出年结存,不过这里等于月
%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货