为什么这样增加DropDownList值没效果

Question

我想自己设定下拉列表中的选项，可是列表始终是空白地，哪里问题？sub show_fenlei
Dim connstr As String = ConfigurationSettings.AppSettings("ConnectionString")
Dim queryString As String = "select id,mingcheng from lanmu where fulei = 0 order by paixu"
Using connection As New OdbcConnection(connstr)
Dim command As New OdbcCommand(queryString, connection)
connection.Open()
Dim reader As OdbcDataReader = command.ExecuteReader()
While reader.Read()
fenlei.Items.Insert(0, new ListItem(reader.getString(0), reader.getString(1)))
End While
reader.Close()
End Using
end sub....
<asp:DropDownList ID="fenlei" runat="server"></asp:DropDownList> 
<%call show_fenlei%>

Answer 1

1.有没有查询到数据?2.还是查询到了数据reader.getString(0)为空?

Answer 2

用dr["ColumnName"]
----------不明白，我刚接触.net，能否详细点？

Answer 3

数据都打印出来了，就是list没反应sub show_fenlei
Dim connstr As String = ConfigurationSettings.AppSettings("ConnectionString")
Dim queryString As String = "select id,mingcheng from lanmu where fulei = 0 order by paixu"
Using connection As New OdbcConnection(connstr)
Dim command As New OdbcCommand(queryString, connection)
connection.Open()
Dim reader As OdbcDataReader = command.ExecuteReader()
While reader.Read()
response.write(reader.getString(0)&" | "&reader.getString(1) & "<br>")
'response.Write("<asp:ListItem Value=""" & reader.getString(0) & """>" & reader.getString(1) & "</asp:ListItem>")
fenlei.Items.Insert(0, new ListItem(reader.getString(0), reader.getString(1)))
'fenlei.Items.Insert(1, new ListItem("全部", "0"))
'fenlei.Items.Add(New ListItem("Carbon", "C"))
    ' fenlei.Items.Add(New ListItem("Oxygen", "O")) End While
reader.Close()
End Using
end sub<td style="width: 135px"><asp:DropDownList ID="fenlei" runat="server">
          <asp:ListItem Value="7">7</asp:ListItem> </asp:DropDownList> 
        <%call show_fenlei%>
        &nbsp;</td>