editablegridview.aspx.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 29 行

Partial Class EditableGridView
    Inherits System.Web.UI.Page

    Protected Sub gvOrdersEditable_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvOrdersEditable.PageIndexChanged
        txtError.Visible = False
    End Sub

    Protected Sub gvOrdersEditable_RowUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdatedEventArgs) Handles gvOrdersEditable.RowUpdated
        'Display error message if exception occurs
        If e.Exception Is Nothing Then
            txtError.Visible = False
        Else
            txtError.Visible = True
            txtError.Text = "Error: " + Mid(e.Exception.Message, 1, e.Exception.Message.IndexOf("."))
            e.ExceptionHandled = True
        End If
    End Sub

    Protected Sub gvOrdersEditable_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles gvOrdersEditable.RowUpdating
        With dsOrdersEdit
            'It's True but doesn't doesn't appear to work
            If Not .UpdateParameters(4).ConvertEmptyStringToNull Then
                .UpdateParameters(4).ConvertEmptyStringToNull = True
            End If
        End With
    End Sub
End Class