Question

我是VB的新手，并被要求查看值没有填充下拉菜单的问题。下面的代码填充了第一个下拉菜单，但第二个下拉菜单是空白的。如果我复制并粘贴sql execute以重新创建rs变量，我的下拉菜单将填充。

我确定我没有正确保存变量，但就像我说的那样，我对VB很新。

<%    
     sql = ""    
     sql = sql & "EXECUTE dbo.web_FetchPlans @ID = " & ID    
     Set rs = objConn.execute(sql)    
%>

<select name="first" type="text" ">    
   <option value="">Please select ...</option>

    <%   if not rs.eof then
          rs.moveFirst()
          do while not rs.EOF
    %>

<%

if not rs.eof then    
    rs.moveFirst()    
    do while not rs.EOF
%>

<option value="<%=rs("productCode")%>"><%=rs("productName")%></option>

<%
rs.moveNext()  
loop
  end if    
%> 


 </select>

因此，当我使用相同的代码创建第二个下拉框时，要遍历rs，我的选项为空。

Answer 1

问题可能在于此代码 -

<%   if not rs.eof then
      rs.moveFirst()

当您到达第二个下拉列表时，rs.EOF条件将为真，因此rs.moveFirst()不会发生，循环将立即结束。

查询的结果未在整个网页中保留

1 个答案: