查人人中国名人网中国板块移动:DropDownList 绑定sqldatareader??
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 16:26:08
我已经该为：
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
Dim constr As String = "SELECT h2 FROM History_sp "
Dim conn As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\spdb.mdb;" & _
"User ID=Admin;" & _
"Password="
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(conn)
Dim da As DropDownList
Dim mycmd As OleDb.OleDbCommand
Dim myreader As OleDb.OleDbDataReader
mycon.Open()
mycmd = New OleDb.OleDbCommand(constr, mycon)
myreader = mycmd.ExecuteReader
da = e.Item.FindControl("DropDownList1")
da.DataSource = myreader
da.DataBind()
'在此处放置初始化页的用户代码
End Sub
但还是不行，是哪里的问题呀
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
Dim constr As String = "SELECT h2 FROM History_sp "
Dim conn As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\spdb.mdb;" & _
"User ID=Admin;" & _
"Password="
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(conn)
Dim da As DropDownList
Dim mycmd As OleDb.OleDbCommand
Dim myreader As OleDb.OleDbDataReader
mycon.Open()
mycmd = New OleDb.OleDbCommand(constr, mycon)
myreader = mycmd.ExecuteReader
da = e.Item.FindControl("DropDownList1")
da.DataSource = myreader
da.DataBind()
'在此处放置初始化页的用户代码
End Sub
但还是不行，是哪里的问题呀
dropdownlist的autopostback属性要设置为true，默认是false，然后你的selectindexchanged时间就生效了。