请高手给搞一下
功能说明:
输入姓名,时间段 后
按 品种分类 分别列出 时间段内 的日产量 ,同时统计出 分类产量和
相关源文件
[此贴子已经被作者于2005-7-3 19:42:33编辑过]
[此贴子已经被作者于2005-7-3 19:42:33编辑过]
dim classs , toutput classs="" toutput=0
while not rs.eof if classs<>rs("品种") then '写入品种 classs=rs("品种") response.write(rs("品种")) end if response.write(rs("时间")) '写入数据 response.write(rs("产量")) toutput=toutput+cint(rs("产量")) rs.movenext if classs<>rs("品种") then '写入总产量 response.write(toutput) end if
wend
[此贴子已经被作者于2005-7-3 21:05:37编辑过]
前面那是有点错 <% dim sname , sbdate , sedate dim classs , toutput ,sql '------------------------------------------- classs="" toutput=0 '-------------------------------------------- sname=request("s_name") sbdate=request("s_b_date") sedate=request("s_e_date") '-------------------------------------------- sql="select * from output_shu where 姓名='" & sname & "' and 时间>=#" & sbdate & "# and 时间<=#" & sedate & "# order by 品种" rs.open sql,conn '-------------------------------------------- if not rs.eof then %> <table width="100%" border="1"> <tr><td align='center' colspan="3">统计</td> </tr>
<tr><td colspan="3">姓名:<%=rs("姓名")%> 岗位:<%=rs("岗位")%></td> </tr>
<% while not rs.eof if classs<>rs("品种") then '写入品种 classs=rs("品种") toutput=0 %> <tr><td>品种<%=rs("品种")%></td><td>时间</td><td>产量</td> </tr>
<% end if %> <tr><td> </td><td><%=rs("时间")%></td><td><%=rs("产量")%></td> </tr> <% toutput=toutput+cint(rs("产量"))
rs.movenext if rs.eof then %> <tr><td colspan="3" align="right">合计<%=toutput%></td> </tr> <% elseif classs<>rs("品种") then %> <tr><td colspan="3" align="right">合计<%=toutput%></td> </tr> <% end if
wend else %> <tr><td colspn="3">没有符合条件的信息</td> </tr> <% end if %> </table>