asp+access按条件表结构输出数据

lukeaccess　发表于：2012-05-30 12:42:46 　

<%
dc=session("sql")（此行为传过来的sql语句）
      Response.ContentType   =   "application/vnd.ms-excel"
      Set rs=Server.CreateObject("ADODB.Recordset")

      rs.open dc,conn,3,1

      if   rs.eof   and   rs.bof   then
            Response.Write"<div   align=center><br>没有记录</div>"
      else
   crkbh=rs("出入库编号")
%>
      <table cellSpacing=0   cellPadding=0   width="100%"   border=1>
          <tr>
              <td align="center" width="10%">物资类别</td>
          <td align="center" width="10%">材料名称</td>
          <td align="center" width="10%">型号规格</td>
        <td align="center" width="10%">单位</td>
        <td align="center" width="10%">调入数量</td>
        <td align="center" width="10%">调入材料描述</td>
        <td align="center" width="10%">调入时间</td>
        <td align="center" width="10%">调出数量</td>
        <td align="center" width="10%">调出单位</td>
        <td align="center" width="10%">调出时间</td>
        <td align="center" width="10%">剩余库存</td>
          </tr>
<%do   while   (Not   RS.Eof)   and   (I<RS.PageSize)%>
<%if mid(crkbh,1,1)="R" then %>
<tr>
<td align="center" width="%10"><%=rs("物资类别")%></td>
<td align="center" width="%10"><%=rs("材料名称")%></td>
<td align="center" width="%10"><%=rs("型号规格")%></td>
<td align="center" width="%10"><%=rs("计量单位")%></td>
<td align="center" width="%10"><%=rs("入库数量")%></td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"><%=rs("日期")%></td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"><%=rs("结存")%></td>
</tr>
<% else %>
<tr>
<td align="center" width="%10"><%=rs("物资类别")%></td>
<td align="center" width="%10"><%=rs("材料名称")%></td>
<td align="center" width="%10"><%=rs("型号规格")%></td>
<td align="center" width="%10"><%=rs("计量单位")%></td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"> </td>
<td align="center" width="%10"><%=rs("出库数量")%></td>
<td align="center" width="%10"><%=rs("出入库单位")%></td>
<td align="center" width="%10"><%=rs("日期")%></td>
<td align="center" width="%10"><%=rs("结存")%></td>
</tr>
<%
      Rs.MoveNext
      Loop
      end   IF
      end   IF
      Set   Conn   =   Nothing
      Set   Rs   =   Nothing
%>
</TABLE>
但是调试显示
错误代码：Loop
错误描述：'loop' 语句缺少 'do'
不知道哪里了，请高手帮忙，这不是 do while 语句中的判断语句出错

<td> <td> 为空输出

Top

煮江品茶发表于：2012-05-30 21:42:36

有一对if end if位置不对，循环体内缺少end if。

此外，可用增加一重循环通过遍历字段来增加<td>标签对，如果采用Jquery的话直接样式，否则应该将样式放入样式表中，这样代码就简洁很多，也容易看出问题。

Top

煮江品茶发表于：2012-05-30 21:48:10

.....

      end if
      Rs.MoveNext
      Loop
      end   IF
      Set   Conn   =   Nothing
      Set   Rs   =   Nothing
%>

.....

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

asp+access按条件 表结构输出数据

asp+access按条件表结构输出数据