dropdownlist的问题，请各位仁兄帮忙看看，谢了！

2002-10-22 08:47:46 62 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python自然语言处理 NLTK 库用法入门教程【经典】 @本文来源于公众号：csdn2299，喜欢可以关注公众号程序员学府本文实例讲述了Python自然语言处理 NLTK 库用法。分享给大家供大家参考，具体如下：在这篇文章中，我们将基于 Python 讨论自然语言处理（NLP）。本教程将会使用 Python NLTK 库。NLTK 是一个当下流行的，用于自然语言处理的 Python 库。那么 NLP 到底是什么？学习 NLP 能带来什么好处？ ... 阅读详情

我有两个dropdownlist
一个是sortlist
一个是columnlist
columnlist里的选项是通过sortlist查询绑定而来
可是为何能取得sortlist的值而取不到columnlist的值呢？谢谢！

代码如下：
Sub Column_bind(ByVal sort_id As Integer)
'#为二级栏目绑定数据
Dim Ds As New DataSet()
Dim objAdapter As New SqlDataAdapter("SELECT Column_id,Column_name FROM webbuild_Column_dict WHERE Sort_id=" & sort_id, link)
Try
DataConnect(1)
objAdapter.Fill(Ds, "webbuild_Column_dict")
columnlist.DataSource = Ds.Tables("webbuild_Column_dict").DefaultView
columnlist.DataTextField = "Column_name"
columnlist.DataValueField = "Column_id"
columnlist.DataBind()
columnlist.Items.Add("请选择小类")
columnlist.SelectedIndex = columnlist.Items.Count - 1
Catch e As Exception
'Alert("加载二级栏目时未知错误")
Response.Write(e.Message)
Finally
DataConnect(0)
Ds.Dispose()
Ds = Nothing
objAdapter.Dispose()
objAdapter = Nothing
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (Page.IsValid) Then
Dim DataTitle, DataMemo, DataPbdate, DataComeFrom, DataAuthor, Topicid, Sortid, Columnid
DataTitle = Data_Title.Text
DataMemo = Body.Text
DataPbdate = CDate(Data_Pbdate.Text)
DataComeFrom = Data_ComeFrom.Text
DataAuthor = Data_Author.Text

If Not IsNothing(sortlist.SelectedItem) Then
Sortid = sortlist.SelectedItem.Value
End If
If Not IsNothing(columnlist.SelectedItem) Then
Columnid = columnlist.SelectedItem.Value '''这里无法取到value
End If
If Not IsNothing(topiclist.SelectedItem) Then
Topicid = topiclist.SelectedItem.Value
End If
Response.Write("<br>Sortid=" & Sortid & "<br>Columnid=" & Columnid & " Topicid=" & Topicid)
Response.End()
If SaveInfo(DataTitle, DataMemo, DataPbdate, DataComeFrom, DataAuthor, Topicid, Sortid, Columnid) = 1 Then
Alert("新闻添加成功！")
Else
Alert("新闻添加失败！")
End If
Else
Alert("false")
End If
End Sub

...全文