在datagrid1的第一列内嵌一个DropDownList,但点击编辑时数据绑定出错,提示“未将对象引用设置到对象的实例。
源错误:
行 85: _drpl.DataSource = _Etable.DefaultView”Sub ebt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) lbllevel.Text = ""
lbllevel.Text = DataGrid1.Items(e.Item.ItemIndex).Cells(0).Text
Dim _drpl As DropDownList = DataGrid1.Items(e.Item.ItemIndex).Cells(0).FindControl("drplevel")
sql = "select student_level from student_level group by student_level" _Etable.Clear()
_Etable = _Econn._table("sw1", sql)
If _Etable.Rows.Count > 0 Then
_drpl.DataSource = _Etable.DefaultView
_drpl.DataTextField = "student_level"
_drpl.DataBind()
End If
_drpl.Items.FindByText(lbllevel.Text.Trim).Selected = True DataGrid1.EditItemIndex = e.Item.ItemIndex
_Bind_grid()
End Sub请帮忙
源错误:
行 85: _drpl.DataSource = _Etable.DefaultView”Sub ebt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) lbllevel.Text = ""
lbllevel.Text = DataGrid1.Items(e.Item.ItemIndex).Cells(0).Text
Dim _drpl As DropDownList = DataGrid1.Items(e.Item.ItemIndex).Cells(0).FindControl("drplevel")
sql = "select student_level from student_level group by student_level" _Etable.Clear()
_Etable = _Econn._table("sw1", sql)
If _Etable.Rows.Count > 0 Then
_drpl.DataSource = _Etable.DefaultView
_drpl.DataTextField = "student_level"
_drpl.DataBind()
End If
_drpl.Items.FindByText(lbllevel.Text.Trim).Selected = True DataGrid1.EditItemIndex = e.Item.ItemIndex
_Bind_grid()
End Sub请帮忙
解决方案 »
- dt 导出excel的问题
- 谈谈你用的最爽的验证方式
- 我给这个DIV为什么这样加不了CSS样式。
- 如何触发datalist的DeleteCommand事件?
- 用sqldatareader做gridview的数据源,不支持gridview的自分页~~
- 求一正则表达式 形如: 01-2345678
- 请问ReturnUrl在什么命名空间下谢谢
- 新人刚注册 因毕业设计遇到问题一直无法解决 特求高手帮忙
- asp.net怎么连vfp数据库
- 为什么 ASP.NET能主动触发Page_Load函数?是使用事件吗?
- 我的网站 http://www.replicashoesbag.com/ 大家去看看啊
- 怎么在master页面中的代码页写javascript脚本?(急在线等~~~~)
_drpl.DataTextField = "student_level"调试看看_Etable.DefaultView是否为NULL,
还有DropDownList绑定的时候DataValueField没付值?这样可以啊?
Private Sub gridlst_ItemDataBound(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) _
Handles gridlst.ItemDataBound
If (e.Item.ItemType = ListItemType.Footer)
Dim DDL As DropDownList =ctype(e.Item.findcontrol("lst2") ,dropdownlist)
DDL.items.clear()
dim selectsql as string
selectsql="select cpmc from test "
dim con as new sqlconnection(connectionstring)
dim cmd as new sqlcommand(selectsql,con)
dim reader as sqldatareader try
con.open()
reader=cmd.executereader()
do while reader.read()
dim newitem as new listitem()
newitem.text=reader("cpmc")
DDL.items.add(newitem)
loop
reader.close()
finally
if (not con is nothing) then
con.close()
end if
end try
End If
end sub
http://www.microsoft.com/china/msdn/archives/library/dnaspp/html/creatingcustomcolumns.asp