标题: 库存汇总的问题 [打印本页] 作者: 随处风流 时间: 2010-1-8 06:43 标题: 库存汇总的问题 <%
'有一个库存汇总的问题,请各位能者指点一下江山!
'共有二个表:1.表名为 2007 的进仓表; 2.表名为 2008 的使用表.由于其它因素而没有二表合一.
'现在需要把二个表的数据汇总后在一个页面上显示,能吗?怎样写呢?
'这里用二个表的货号的2007的字段[A]和2008的字段[AA]作比较:
'货号相同的合成一条数据显示,并把表2007的进仓数量相加显示,又把表2008的使用数量相加显示;
'货号不相同的作另外一条数据显示.
'库存数量来自: 进仓数量 - 使用数量 = 库存数量
'简单的来说是将二个表的数据汇总并计算出:同一货号的商品的进仓数量, 使用数量 和 库存数量.
'在此先谢过!
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [2007] or [2008] where ......"
rs.Open sql,conn,1,1
%>
<table>
<tr>
<td>货号</td>
<td>其它内容</td>
<td>进仓数量</td>
<td>使用数量</td>
<td>库存数量</td>
</tr>
<% do while not rs.eof%>
<tr>
<td><%=rs("A or AA")%></td>
<td><%=rs("B or BB")%></td>
<td><%=rs("进仓数量")%></td>
<td><%=rs("使用数量")%></td>
<td><%=rs("进仓数量 - 使用数量 = 库存数量")%></td>
</tr>
<%rs.movenext
loop%>
</table>作者: X~iao~ping 时间: 2010-1-8 06:43
4楼写的不错，但是要考虑到货号的问题，有可能2007会进新货，但是在2008表中没有记录，这个就没有列出来了。作者: 西山婉儿 时间: 2010-1-8 06:43
4楼的写得很详细作者: 未来的回忆 时间: 2010-1-8 06:43
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql="select sum(进仓数量) as jcsl,货号 from 2007 group by 货号"
rs.open sql,conn,1,1
if rs.eof then
response.write("无信息")
response.end()
else
%>
<table>
<tr>
<td>货号</td>
<td>进仓数量</td>
<td>使用数量</td>
<td>库存数量</td>
</tr>
<%
do while not rs.eof
jcsl=rs("jcsl")'进仓数量
sql1="select sum(使用数量) as sysl,货号 from 2008 where 货号='"&rs("货号")&"' group by 货号" '你的货号应该是唯一的吧
rs1.open sql1,conn,1,1
if not rs1.eof then
sysl=rs1("sysl")'使用数量
else
sysl=0
end if
rs1.close
kcsl=jcsl-sysl'库存数量＝进仓数量-使用数量
%>
<tr>
<td><%=rs("货号")%></td>
<td><%=jcsl%></td>
<td><%=sysl%></td>
<td><%=kcsl%></td>
</tr>