dropdownlist的问题,请各位仁兄帮忙看看,谢了!
我有两个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