供应商代码相同, 如何才能把不同的船名，货品等数据放在一个小计中来处理..急！！！！！！！！

[bananasmiling]

<%
ir=1
i=1
iI=1
tqty=0
tamt=0
tam=0
tqt=0
response.write "<table id=mytable border=0 cellspacing=0><tr id=t1><td>"
do while not rs.eof
qty=cdbl(rs("qty"))
amt=cdbl(rs("amount"))
tqty=tqty+Round(qty,3)
tamt = tamt + Round(amt,2)
tam=tam+tamt
tqt=tqt+tqty
response.write "<table border=1 cellspacing=0 width='100%'>"
Response.Write "<TR>"
Response.WRITE "<td nowrap height='24' align='center' >供应商</td>"
Response.WRITE "<td nowrap height='24' align='center' >船名</td>"
Response.WRITE "<td nowrap height='24' align='center'>货品</td>"
Response.WRITE "<td nowrap height='24' align='center'>数量</td>"
Response.WRITE "<td nowrap height='24' align='center'>金额</td>"
Response.WRITE "</TR>"
if not rs.eof then '最主要的是这一段
if tmp = trim(rs("vendername")) then
Response.Write "<TR><td nowrap></td>"
else
Response.Write "<TR><td nowrap>" & trim(rs("vendername")) & "</td>"
end if
tmp = trim(rs("vendername"))
Response.Write "<td nowrap >" & trim(rs("vesselname")) & "</td>"
Response.Write "<td nowrap >" & trim(rs("name")) & "</td>"
Response.Write "<td nowrap align='right' >" & Formatnumber(qty,3)& "</td>"
Response.Write "<td nowrap align='right' >" & FormatNumber(amt,2)& "</td>"

Response.Write "<TR><td nowrap colspan=3 align='center'> 小计：</td>"
Response.Write "<td nowrap align='right'>" & FormatNumber(tqty,3)& "</td>"
Response.write "<td nowrap align='right'>" & Formatnumber(tamt,2)& "</td>"
Response.WRITE "</tr>"
i=i+1
iI=iI + 1
rs.movenext
tqty=0
tamt=0

end if '到这里结束
loop
response.write "</table>"

供应商代码相同,第二条记录的供应商代码没有写出来,(这已解决)

现在的问题是:在上面我注明的程序中,供应商相同, 有许多不同的船名等数据,可是它们分别放在不同的小计中处理, 这是错误的.

客户要求的是供应商相同, 后面有许多不同的船名等数据要放在一个小计中来处理..

在我上面标出的这段程序中应该怎么改才能达到我上面的要求! 谢谢各位了..

[jacklinchen]

tqty=0
tamt=0

if not rs.eof then '最主要的是这一段
if tmp = trim(rs("vendername")) then
Response.Write "<TR><td nowrap></td>"
else
Response.Write "<TR><td nowrap>" & trim(rs("vendername")) & "</td>"
end if
tmp = trim(rs("vendername"))
Response.Write "<td nowrap >" & trim(rs("vesselname")) & "</td>"
Response.Write "<td nowrap >" & trim(rs("name")) & "</td>"
Response.Write "<td nowrap align='right' >" & Formatnumber(qty,3)& "</td>"
Response.Write "<td nowrap align='right' >" & FormatNumber(amt,2)& "</td>"
tqty=tqty + Formatnumber(qty,3)
tamt=tamt + FormatNumber(amt,2)
if tmp = trim(rs("vendername")) then
Response.Write "<TR><td nowrap colspan=3 align='center'> 小计：</td>"
Response.Write "<td nowrap align='right'>" & FormatNumber(tqty,3)& "</td>"
Response.write "<td nowrap align='right'>" & Formatnumber(tamt,2)& "</td>"
Response.WRITE "</tr>"
tqty=0
tamt=0

end if
i=i+1
iI=iI + 1
rs.movenext

end if '到这里结束
loop

[Primer2002cn]

把表结构贴出来，尽量在后台完成这样的计算

[bananasmiling]

jacklinchen(陈)

你做的这个程序和我做的一个样子, 供应商相同,船名货品等数据还是分别在几个小计中来处理..

老样子..

[bananasmiling]

ASP高手吗
帮帮我啊...

[bananasmiling]

高手都到哪去了今天才星期五唉....
人呢..

[mayida]

我给你一个思路吧你自己试试
就是二个判断,,先判断供应商是否相同,,,
再判断供应商代码是否相同相同的话只写一个小时..

[mayida]

我给你一个思路吧你自己试试
就是二个判断,,先判断供应商是否相同,,,
再判断供应商代码是否相同相同的话只写一个小计注意你上面程序中的部分相加的问题...