关于物品台帐的问题

Question

"本月结存"定义个变量就可以了,举例<%
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'输出年结存,不过这里等于月
%>

Answer 1

不好意思,一直没来结贴.当时因为等不及就自己想,想的方法也是用一个变量来定义本月结存.不过看你的代码还是有启发.谢谢你啊:)