editablegridview.aspx.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

Option Explicit On
Option Strict On

Partial Class EditableGridView_aspx
    Inherits System.Web.UI.Page

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

    Private Sub gvOrdersEditable_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvOrdersEditable.RowEditing
        'Stop
    End Sub

    Private 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.Text = "No Error"
            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

    Private 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

    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            'Accumulate number of postbacks
            txtPostBacks.Text = (Val(txtPostBacks.Text) + 1).ToString
        End If
    End Sub
End Class