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

请高手给搞一下


功能说明：

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

相关源文件

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

补充说明
效果样式：

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

有理

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

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

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

高手请指点一二

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

谢谢
我测试一下试

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

费心了
谢谢！
不过需要，在
'--------------------------------------------
sql="select * from output_shu where 姓名='" & sname & "' and 时间>=#" & sbdate & "# and 时间<=#" & sedate & "# order by 品种"
rs.open sql,conn
'--------------------------------------------

中加
Set rs=Server.CreateObject("ADODB.RecordSet")
语句

测试成功

后来文件改了，忘了 不好意思 我改成了 <% serstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.mappath("/data/data.mdb") set conn=server.CreateObject("ADODB.CONNECTION") conn.open serstr

'日期格式化成YYYY-MM-DD Function CFdate(udate) '去除空格，如果长度大于8，只取前8位数 udate=trim(udate) IF Len(udate)>8 Then udate=Left(udate,8) End IF '如果字符创中有非数字字符，返回空 For i=1 to Len(udate) IF Asc(Mid(udate,i,1))<48 Or Asc(Mid(udate,i,1))>57 Then CFdate="" Exit For Else '对符合条件的数字进行格式化 Select Case Len(udate) Case 4 CFdate=udate&"-01-01" Case 5 CFdate=Left(udate,4)&"-0"&Right(udate,1)&"-01" Case 6 IF Right(udate,2)>12 Then CFdate=Left(udate,4)&"-12-01" Else CFdate=Left(udate,4)&"-"&Right(udate,2)&"-01" End IF Case 7 IF Mid(udate,5,2)>12 Then CFdate=Left(udate,4)&"-12-0"&Right(udate,1) Else CFdate=Left(udate,4)&"-"&Right(udate,2)&"-0"&Right(udate,1) End IF Case 8 IF Mid(udate,5,2)>12 And Right(udate,2)>31 Then CFdate=Left(udate,4)&"-12-01" ElseIF Mid(udate,5,2)>12 And Right(udate,2)<31 Then CFdate=Left(udate,4)&"-12-"&Right(udate,2) ElseIF Mid(udate,5,2)<12 And Right(udate,2)>31 Then CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-01" ElseIF Mid(udate,5,2)=02 And Right(udate,2)>28 Then CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-28" Else CFdate=Left(udate,4)&"-"&Mid(udate,5,2)&"-"&Right(udate,2) End IF Case Else CFdate="" End Select End IF Next End Function %> 本以为好用，没想到，不管用。

也对
没必要费这么大周折

yaa