Question

asp查询求和问题

<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><a href="lookbyid.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>"><%=(Recordset1.Fields.Item("id").Value)%>查看</a> <a href="xiugai.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">修改</a> <a href="dell.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">删除</a></td>
<td><%=(Recordset1.Fields.Item("出车车号").Value)%>  </td>
<td> <%=(Recordset1.Fields.Item("驾驶员").Value)%>  </td>
<td>  <%=(Recordset1.Fields.Item("出车日期").Value)%> </td>
<td><%=(Recordset1.Fields.Item("出车时间").Value)%> </td>
<td><%=(Recordset1.Fields.Item("返回日期").Value)%> </td>
<td><%=(Recordset1.Fields.Item("返回时间").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("用车人").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("出车地点").Value)%> <%=(Recordset1.Fields.Item("出车地点手工").Value)%></td>
<td><%=(Recordset1.Fields.Item("出车任务").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("本次里程").Value)%>  </td>
<td><%
aa=(Recordset1.Fields.Item("是否录入返回信息").Value)
aa=Replace(aa,"否","<font color=red><B>未录入返回信息</b></font>")
response.write aa
%>

如上，查询后，如何将本次里程全部相加

Answer 1

<%
li=0
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><a href="lookbyid.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>"><%=(Recordset1.Fields.Item("id").Value)%>查看</a> <a href="xiugai.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">修改</a> <a href="dell.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">删除</a></td>
<td><%=(Recordset1.Fields.Item("出车车号").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("驾驶员").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("出车日期").Value)%> </td>
<td><%=(Recordset1.Fields.Item("出车时间").Value)%> </td>
<td><%=(Recordset1.Fields.Item("返回日期").Value)%> </td>
<td><%=(Recordset1.Fields.Item("返回时间").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("用车人").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("出车地点").Value)%> <%=(Recordset1.Fields.Item("出车地点手工").Value)%></td>
<td><%=(Recordset1.Fields.Item("出车任务").Value)%> </td>
<td> <%=(Recordset1.Fields.Item("本次里程").Value)%> </td>
</tr>
<%
li=li+recordset1("本次里程")
recordset1.movenext
wend
%>
<%
response.write("总理程为"&li)
%>

Answer 2

在<td> <%=(Recordset1.Fields.Item("本次里程").Value)%> </td> 后加入
<%
Totallc=Totallc+Recordset1.Fields.Item("本次里程").Value
%>

<%=Totallc%>

Totallc就是总里程

Answer 3

先定义lc=0
然后在循环体内添加
lc=lc+本次里程值

最后输出lc