在datagrid里面加上删除,修改按钮,并触发相应事件

主要使用datagrid的ItemCommand事件,同时也要修改按钮的CommandName,一一对应,如果是删除就执行删除的事件,如果是修改就执行修改的事件

 Private Sub dg_TeacherResume_ItemCreated()Sub dg_TeacherResume_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg_TeacherResume.ItemCreated
        Select Case e.Item.ItemType
            ' Select陈述式会选择被创建项目,行、交错行，或者编辑行
        Case ListItemType.Item, ListItemType.AlternatingItem, ListItemType.EditItem
                Dim myDeleteButton As LinkButton
                myDeleteButton = e.Item.FindControl("lkbtnDelete")
                myDeleteButton.Attributes.Add("onclick", "return confirm('您真的要删除此文件吗？');")
        End Select
    End Sub

    Private Sub dg_TeacherResume_ItemCommand()Sub dg_TeacherResume_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg_TeacherResume.ItemCommand
        Select Case e.CommandName
            Case "dele"
                txtSQL = "delete from TeacherResume where id='" & e.Item.Cells(0).Text & "'"
                ExecuteSQL(txtSQL, ErrorMsg)
                '更新 重新绑定
                TeacherResume()
            Case "modi"
                txtSQL = "select * from TeacherResume where ID = " & e.Item.Cells(0).Text
                DBSet = ExecuteSQL(txtSQL, ErrorMsg)
                ddl_startyear.SelectedValue = Left(DBSet.Tables(0).Rows(0).Item("StartDate"), 4)
                ddl_startmonth.SelectedValue = Right(DBSet.Tables(0).Rows(0).Item("StartDate"), 2)
                ddl_endyear.SelectedValue = Left(DBSet.Tables(0).Rows(0).Item("EndDate"), 4)
                ddl_endmonth.SelectedValue = Right(DBSet.Tables(0).Rows(0).Item("EndDate"), 2)
                txt_content.Text = DBSet.Tables(0).Rows(0).Item("Content")
                txt_certifier.Text = DBSet.Tables(0).Rows(0).Item("Certifier")
                lbl_judge.Text = e.Item.Cells(0).Text
        End Select
       
    End Sub


    Sub TeacherResume()Sub TeacherResume()
        '显示教师经历
        txtSQL = "select * from TeacherResume where TeacherID_R_Teacher='" & Request("id") & "'"
        DBSet = ExecuteSQL(txtSQL, ErrorMsg)
        If DBSet.Tables(0).Rows.Count >= 0 Then
            dg_TeacherResume.DataSource = DBSet.Tables(0).DefaultView
            dg_TeacherResume.DataBind()
        End If

    End Sub

现在修改的不在datagrid里面,如果在datagrid里面修改的话还可以使用ctype()函数

另外,itemcreated 里面有增加了确认删除的的弹出框