怎么根据表A的出货单号统计表B的总额

如何根据表A的出货单号统计表B的总额
如图
表A（出货单，或收款单）
要统计每张出货单的总额
怎么根据表A的出货单号统计表B的总额

表B （详细出货记录表，多行出货记录合并成一张出货单）

关键是第10行和146 行的代码

第10行
rs2.Open "select SUM(zonger) as zonger2 from chuhuo where chuhuodan="&str,conn2,1,1

第146行

<td height="22" align="left"><%=sumzonger(rs("chuhuodan"))%></td>

运行出错

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/shoukuan/shoukuan.asp, 第 10 行

总代码如下：



<html>
<head>

<%

function sumzonger(str)
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select SUM(zonger) as zonger2 from chuhuo where chuhuodan="&str,conn2,1,1
if not rs2.eof then
sumzonger=rs2("zonger2")
else
sumzonger=""

end if

rs2.Close
set rs2=nothing
end function

function getdanwei(str)
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select danwei from chanpin where _identify="&str,conn2,1,1
if not rs2.eof then
getdanwei=rs2("danwei")
else
getdanwei=""
end if

rs2.Close
set rs2=nothing
end function

%>

<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>

<style type="text/css">

</style></head>

<div align="center"><span class="STYLE5">出货单</span>

</div>
<P>

<table width="562" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>

<td width="100" height="22" align="center"><span class="STYLE3">出货日期</span></td>
<td width="96" align="center">出货单</td>
<td width="192" height="22" align="center">单位名称</td>

<td width="91" height="22" align="center">金额</td>
<td width="71" height="22" align="center">收款</td>
</tr>

<%

'开始分页
MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=int(request("page"))
else
currentPage=1
end if

set rs=server.CreateObject("adodb.recordset")
sql="select * from chuhuodan where _identify>0 "

if kehuid<>"" then
kehuid="kehuid"
end if

sql=sql&" order by _identify desc"
rs.open sql,conn2,1,1

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起,没有找到相关信息！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"shoukuan.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then

rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"shoukuan.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"shoukuan.asp"
end if
end if
end if

sub showContent
dim i

i=0
do while not rs.eof

%>
<tr>

<td height="22" align="center"><span class="STYLE3"><%=rs("chuhuodate")%></span></td>
<td align="left"><%=rs("chuhuodan")%></td>
<td height="22" align="left"><%=rs("kehuname")%></td>
<td height="22" align="left"><%=sumzonger(rs("chuhuodan"))%></td>
<td height="22" align="center"><form name="form1" method="post" action="">
<label>
<input type="checkbox" name="checkbox" value="checkbox">
</label>
</form>
</td>
</tr>
<%i=i+1

if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>

<% End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If

Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&tel="&tel&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&tel="&tel&" class='contents'>上一页</a> "
End If

If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&tel="&tel&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&tel="&tel&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"条记录 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"
Response.Write " <input type='submit' class='button' value='GO' name='cndok'></form>"
End Function
%>

</html>

怎么实现呢?

[解决办法]
rs2.Open "select SUM(zonger) as zonger2 from chuhuo where chuhuodan='" & Replace(str, "'","''") & "'",conn2,1,1

怎么根据表A的出货单号统计表B的总额

热点推荐