搞了好久，没搞出来，老提示出错，

请高手给搞一下


功能说明：

输入姓名，时间段　后
按　品种分类　分别列出　时间段内　的日产量　，同时统计出　分类产量和

相关源文件

[此贴子已经被作者于2005-7-3 19:42:33编辑过]

补充说明
效果样式：

[此贴子已经被作者于2005-7-3 14:23:53编辑过]

数据表设计不是很合理哦！

如果一个人会有多种班次，在录入时可考虑将班次录入"output_shu"表中。
如本一个人只会有一种班次就不用既查“姓名”又查“班次”

有理

写班次的目的是为了模糊查询时，
不输入姓名
只输入班次
这样就可以将一个班的所有人　按品种分类　时间段内的总产量　统计出来了，便于为班长考核。
如果要实现这个功能，这个表格设计的的确是不合理

不过这不是重点，先忽略这个功能

我搞不明白的是
怎样让它输入姓名，时间段　后
按　品种分类　分别列出　时间段内　的日产量　，同时统计出　分类产量和

高手请指点一二

[此贴子已经被作者于2005-7-3 19:45:28编辑过]

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编辑过]

忘了说一点 记录集用“品种”排序

order by 品种

谢谢
我测试一下试

不知道为什么老出错
你能不能将整页文件的源码发上
我对照一下
谢谢

其它就是灵活运用的问题了，我看看！！

前面那是有点错 <% 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("姓名")%> &nbsp;&nbsp;&nbsp;&nbsp;岗位:<%=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>&nbsp;</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>