,一个困绕小弟我很久的有关问题

在线等,一个困绕我很久的问题
在gridview里显示学生信息,在gridview里添加了一个超链接按钮 "修改 ",点击修改就会跳转到修改页面进行修改,在修改页面有dropdownlist控件,已经在修改页面的page_load事件里连接上数据库里面的班级表了,dropdownlist控件里面可以显示出相应的班级出来,当在gridview点击修改链接时就会在dropdownlist控里面显示相应的班级,其他项会在文本框控件中显示,以前也请教过别人,但是别人给的代码不报错.也不会执行相应的操作.现在把代码重新贴出来.希望大家帮忙解决
这是修改页面获得参数的代码，并在控件中显示出来
Protected   Sub   Page_Load(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   Me.Load
                If   Page.IsPostBack   =   False   Then
                        Dim   conn   As   New   SqlConnection
                        conn.ConnectionString   =   "data   source=127.0.0.1;initial   catalog=kaoqin   manager;user   id=james5;password=james5; "
                        Dim   sql   As   String
                        sql   =   "select   kaoqinno,riqi,hour,remark   ,stuname   ,mattername,classname     from   "
                        sql   &=   "kaoqin,class,matter   where   kaoqin.classno=class.classno   and     kaoqin.matterno=matter.matterno "
                        sql   &=   "   and     kaoqinno= "   &   Request.QueryString( "kaoqinno ")
                        Dim   cmd   As   New   SqlCommand(sql,   conn)
                        conn.Open()
                        Dim   dr   As   SqlDataReader   =   cmd.ExecuteReader
                        If   dr.Read   Then
                                xingming.Value   =   dr.Item( "stuname ").ToString
                                riqi.Value   =   DateTime.Parse(dr.Item( "riqi ")).ToString( "yyyy-MM-dd ")
                                keshi.Value   =   dr.Item( "hour ").ToString
                                beizhu.Value   =   dr.Item( "remark ").ToString
                                                            Dim   item   As   ListItem
                                item   =   banji.Items.FindByText(dr.Item( "classname ").ToString)
                                If   Not   item   Is   Nothing   Then

                                        item.Selected   =   True
                                End   If
                                conn.Close()
                        End   If
                        Call   bj()
                End   If
        End   Sub
别人给的代码就是这几行
    Dim   item   As   ListItem
                                item   =   banji.Items.FindByText(dr.Item( "classname ").ToString)
                                If   Not   item   Is   Nothing   Then
                                        item.Selected   =   True
                                End   If
                          这是在修改页面绑定数据库中班级表中班级名称的代码

Public   Sub   bj()
                Dim   sql   As   String
                Dim   conn   As   New   SqlConnection
                conn.ConnectionString   =   "data   source=127.0.0.1;initial   catalog=kaoqin   manager;user   id=james5;password=james5; "
                sql   =   "select   classno,classname   from   class "
                Dim   cmd   As   New   SqlCommand(sql,   conn)
                conn.Open()
                Dim   dr   As   SqlDataReader
                dr   =   cmd.ExecuteReader()
                banji.AppendDataBoundItems   =   True
                banji.Items.Add(New   ListItem( "--请选择-- ",   "-1 "))
                banji.DataSource   =   dr
                banji.DataValueField   =   "classno "
                banji.DataTextField   =   "classname "
                banji.DataBind()
        End   Sub
请大家帮忙看一下到底是哪儿出了问题了，不胜感激




[解决办法]
帮顶，怎么没有高手来看看呢？
[解决办法]
一看一堆代码头就大。

没出错，并且也没有执行，那就说明

item Is Nothing

这就要求你单步调试一下，到底是哪一句的问题了。
banji.Items.FindByText(dr.Item( "classname ").ToString)
估计可能是这句话的原因。