editabledetailsview.aspx.vb

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

Partial Class EditableDetailsView
    Inherits System.Web.UI.Page
    '*********************************
    'Orders DetailsView event handlers
    '*********************************

    Protected Sub dvOrders_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrders.ItemCommand
        If e.CommandName = "New" Then
            gvOrderDetails.Visible = False
        Else
            gvOrderDetails.Visible = True
        End If
    End Sub

    Protected Sub dvOrders_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dvOrders.PageIndexChanged
        'Hide error text box
        txtError.Visible = False
        gvOrderDetails.Visible = True
    End Sub

    '*************************************
    'Order Details GridView event handlers
    'Note: Order Details GridView error handler 
    'is inline in EditableDetailsView.aspx
    '**************************************

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

    Protected Sub gvOrderDetails_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvOrderDetails.SelectedIndexChanged
        txtError.Visible = False
    End Sub

    '****************************************
    'Order Details DetailsView event handlers
    '****************************************

    Protected Sub dvOrderDetails_ItemDeleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeletedEventArgs) Handles dvOrderDetails.ItemDeleted
        'Refresh the OrderDetails GridView
        gvOrderDetails.DataBind()
    End Sub

    Protected Sub dvOrderDetails_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles dvOrderDetails.ItemInserted
        'Refresh the OrderDetails GridView
        If e.Exception Is Nothing Then
            txtError.Visible = False
            gvOrderDetails.DataBind()
        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 dvOrderDetails_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles dvOrderDetails.ItemInserting
        'Overwrite empty or user-entered value (first value) 
        'with OrderID from the Orders DetailsView
        e.Values(0) = dvOrders.SelectedValue
    End Sub

    Protected Sub dvOrderDetails_ItemUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdatedEventArgs) Handles dvOrderDetails.ItemUpdated
        If e.Exception Is Nothing Then
            txtError.Visible = False
            gvOrderDetails.DataBind()
            'Refresh the OrderDetails GridView
        Else
            'Display first sentence of Exception.Message
            txtError.Visible = True
            txtError.Text = "Error: " + Mid(e.Exception.Message, 1, e.Exception.Message.IndexOf("."))
            e.ExceptionHandled = True
        End If
    End Sub

    Protected Sub dvOrderDetails_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrderDetails.ItemCommand
        txtError.Visible = False
    End Sub

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