| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 890 人关注过本帖
标题:求助,出入库怎么同时满足4个条件进行结存?
只看楼主 加入收藏
mango
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-1
收藏
 问题点数:0 回复次数:9 
求助,出入库怎么同时满足4个条件进行结存?

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp"-->
<!--#include file="fy.asp"-->
<!--#include file="head.asp"-->
<LINK href="admin.css" type=text/css rel=stylesheet>
<h3>出入汇总</h3>

<%
pch=trim(request.form("pch"))
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("crk.mdb"))

page=request("page")
if page="" then page=1
if isnumeric(page)=false then page=1
page=clng(page)

set rs=server.CreateObject("adodb.recordset")
if pch<>"" then
sql="select * from ruku where pch='"&pch&"' "
else
sql="select pch,spbm,spmc,sum(zzl) as zzlh ,djzl,chuwei,sum(rksl) as rkslh from ruku group by pch,spbm,spmc,djzl,chuwei"
end if

rs.pagesize=10
rs.open sql,conn,3,2
if not rs.eof then
rs.absolutepage=page
ipage=0
%>

<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-top:1px solid #acacab;border-left:1px solid #acacab;border-right:1px solid #acacab;border-bottom:1px solid #acacab;">

<tr>
<td height="25" colspan="11"><div align="center"><a href="ruku.asp">查看全部</a></div></td>
</tr>
<tr>
<td height="25" colspan="11"><div align="center">
<form id="form1" name="form1" method="post" action="ruku.asp">
<label>请输入批次号:
<input name="pch" type="text" id="pch" size="15" />
</label>
<label>
&nbsp;
<input name="submit" type="submit" id="pch" value="提交" />
</label>
&nbsp;
</form>
</div></td>
</tr>
<tr>
<td width="10%" height="25"><div align="center">批次号</div></td>
<td width="8%" height="25"><div align="center">商品编码</div></td>
<td width="14%" height="25"><div align="center">商品名称</div></td>
<td width="8%" height="25"><div align="center">总重量</div></td>
<td width="8%" height="25"><div align="center">单件重量(kg)</div></td>
<td width="8%" height="25"><div align="center">储位</div></td>

<td width="8%" height="25"><div align="center">入库数量</div></td>
<td width="8%" height="25"><div align="center">出库数量</div></td>
<td width="8%" height="25"><div align="center">结存</div></td>
</tr>
<%

do while not rs.eof and ipage<rs.pagesize


set rs2=server.CreateObject("adodb.recordset")
sql="select * from chuku where pch='"&rs("pch")&"' and spbm='"&rs("spbm")&"' and djzl='"&rs("djzl")&"' and chuwei='"&rs("chuwei")&"'"
rs2.open sql,conn,3,2
if not rs2.eof then
set rs3=server.CreateObject("adodb.recordset")
sql="select sum(cksl) as ckslh from chuku where pch='"&rs("pch")&"' and spbm='"&rs("spbm")&"' and djzl='"&rs("djzl")&"' and chuwei='"&rs("chuwei")&"'"
rs3.open sql,conn,3,2
else
jiecun=rkslh-ckslh
end if


%>
<tr>
<td height="25"><div align="center"><%=rs("pch")%></div></td>
<td height="25"><div align="center"><%=rs("spbm")%></div></td>
<td height="25"><div align="center"><%=rs("spmc")%></div></td>
<td height="25"><div align="center"><%=rs("zzlh")%></div></td>
<td height="25"><div align="center"><%=rs("djzl")%></div></td>
<td height="25"><div align="center"><%=rs("chuwei")%></div></td>
<td height="25"><div align="center"><%=rs("rkslh")%></div></td>
<td height="25"><div align="center"><%=rs("ckslh")%></div></td>
<td height="25"><div align="center"><%=jiecun%></div></td>

</tr>
<%

ipage=ipage+1
rs.movenext

loop

end if
%>
<tr>
<td colspan="11">
<div align="center"> <%call showpage(rs.recordcount,rs.pagesize,page,"?fl="&fl&"&")%></div></td>
</tr>
</table>

注:pch:批次号;spbm:商品编码;spmc:商品名称;zzl:总重量;djzl:单件重量;chuwei:储位;rksl:入库数量
cksl:出库数量;jiecun:结存。

这是我写的,出现了这样的错误,找不到出库数量合计

错误类型:
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中,未找到项目。
/xyck/crhuizong.asp, 第 132 行

希望高手们指点一下,告诉我怎么改才对。

搜索更多相关主题的帖子: 结存 条件 入库 
2007-08-03 17:24
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
哪行是132行

出现此类错误原因一般是:
1、字段名写错
2、要读取的字段没有打开

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-08-03 17:41
mango
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-1
收藏
得分:0 
回复:(mango)求助,出入库怎么同时满足4个条件进行...
<td height="25"><div align="center"><%=rs("ckslh")%></div></td>
这一行出错,我不知道怎么改,各位大侠帮忙看看,谢谢啦!
2007-08-06 09:22
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
<td height="25"><div align="center"><%=rs("ckslh")%></div></td>
改成
<td height="25"><div align="center"><%=rs3("ckslh")%></div></td>
试试
2007-08-06 10:05
mango
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-1
收藏
得分:0 
谢谢上面这位大哥,这几天浑浑噩噩的,连这都看漏了,呵呵!不过结存还是没有出来,怎么修改一下才能自动求出结存来呢?希望兄弟们指点一下小弟。
2007-08-06 13:34
mango
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-1
收藏
得分:0 

哪位大哥帮下忙。

2007-08-06 14:44
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
jiecun=rkslh-ckslh
改成
jiecun=rs("rkslh")-rs3("ckslh")
2007-08-06 14:44
mango
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-1
收藏
得分:0 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="conn.asp"-->
<!--#include file="fy.asp"-->
<!--#include file="head.asp"-->
<LINK href="admin.css" type=text/css rel=stylesheet>
<h3>出入汇总</h3>

<%
pch=trim(request.form("pch"))
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("crk.mdb"))

page=request("page")
if page="" then page=1
if isnumeric(page)=false then page=1
page=clng(page)

set rs=server.CreateObject("adodb.recordset")
if pch<>"" then
sql="select * from ruku where pch='"&pch&"' "
else
sql="select pch,spbm,spmc,sum(zzl) as zzlh ,djzl,chuwei,sum(rksl) as rkslh from ruku group by pch,spbm,spmc,djzl,chuwei"
end if

rs.pagesize=10
rs.open sql,conn,3,2
if not rs.eof then
rs.absolutepage=page
ipage=0
%>

<table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-top:1px solid #acacab;border-left:1px solid #acacab;border-right:1px solid #acacab;border-bottom:1px solid #acacab;">


<tr>
<td width="10%" height="25"><div align="center">批次号</div></td>
<td width="8%" height="25"><div align="center">商品编码</div></td>
<td width="14%" height="25"><div align="center">商品名称</div></td>
<td width="8%" height="25"><div align="center">总重量</div></td>
<td width="8%" height="25"><div align="center">单件重量(kg)</div></td>
<td width="8%" height="25"><div align="center">储位</div></td>

<td width="8%" height="25"><div align="center">入库数量</div></td>
<td width="8%" height="25"><div align="center">出库数量</div></td>
<td width="8%" height="25"><div align="center">结存</div></td>

</tr>
<%

do while not rs.eof and ipage<rs.pagesize
set rs2=server.CreateObject("adodb.recordset")
sql="select * from chuku where pch='"&rs("pch")&"' and spbm='"&rs("spbm")&"' and djzl='"&rs("djzl")&"' and chuwei='"&rs("chuwei")&"'"
rs2.open sql,conn,3,2
if not rs2.eof then
set rs3=server.CreateObject("adodb.recordset")
sql="select sum(cksl) as ckslh from chuku where pch='"&rs("pch")&"' and spbm='"&rs("spbm")&"' and djzl='"&rs("djzl")&"' and chuwei='"&rs("chuwei")&"'"
rs3.open sql,conn,3,2

else
ckslh=0

end if
jiecun=rs("rkslh")-rs3("ckslh")

%>
<tr>
<td height="25"><div align="center"><%=rs("pch")%></div></td>
<td height="25"><div align="center"><%=rs("spbm")%></div></td>
<td height="25"><div align="center"><%=rs("spmc")%></div></td>
<td height="25"><div align="center"><%=rs("zzlh")%></div></td>
<td height="25"><div align="center"><%=rs("djzl")%></div></td>
<td height="25"><div align="center"><%=rs("chuwei")%></div></td>
<td height="25"><div align="center"><%=rs("rkslh")%></div></td>
<td height="25"><div align="center"><%=rs3("ckslh")%></div></td>
<td height="25"><div align="center"><%=jiecun%></div></td>

</tr>
<%

ipage=ipage+1
rs.movenext

loop

end if
%>
<tr>
<td colspan="11">
<div align="center"> <%call showpage(rs.recordcount,rs.pagesize,page,"?fl="&fl&"&")%></div></td>
</tr>
</table>


<p>&nbsp;</p>
<tr>
<td height="25" colspan="11"><div align="center"><a href="ruku.asp">查看全部</a></div></td>
</tr>
<tr>
<td height="25" colspan="11"><div align="center">
<form id="form1" name="form1" method="post" action="crhuizong.asp">
<label>请输入批次号:
<input name="pch" type="text" id="pch" size="15" />
</label>
<label>
&nbsp;
<input name="submit" type="submit" id="pch" value="提交" />
</label>
&nbsp;
</form>
</div></td>
</tr>


按批次号、商品编码(和商品名称一一对应)、单件重量(因为同种商品单件重量有可能不同)、储位(以上条件一样的情况上放的储位有可能不同)4个条件同时满足汇总结存后,要想只输入批次号然后把同批次号以按这4个条件汇总的各条记录输出,程序该怎么写?

2007-08-07 10:15
pigbobdog
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-10
收藏
得分:0 
AAAAAAAAAAAA
2007-08-10 21:49
pigbobdog
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-8-10
收藏
得分:0 
我今天也为这事苦恼半天

ADO好像不支持SUM()的别名处理,你用rs(字段索引)的形式,并删除前面的AS CKSLH
2007-08-10 21:51
快速回复:求助,出入库怎么同时满足4个条件进行结存?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036976 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved