|
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>
<%
rs.movenext
loop
rs.close
%>
</table>
<%end if%>
因为你提供的表格的信息不全面,而且你的说明也不是很详细(“其他内容”是什么?哪个表格里的信息?),我只是按照我的理解写了上面的代码,仅供参考。 |
|