linkeddetailsviewbe.aspx.vb

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

Option Explicit On
Option Strict On
Partial Class LinkedDetailsViewBE_aspx
    Inherits System.Web.UI.Page

    Dim blnIsNew As Boolean

    Private Sub dvOrdersLinked_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrdersLinked.ItemCommand
        'Redirect to the LinkedGridView page on cancel
        txtError.Text = ""
        txtError.Visible = False
        txtError.ForeColor = Drawing.Color.Red
        Response.Buffer = True
        If e.CommandName = "Cancel" Then
            Response.Redirect("LinkedGridViewBE.aspx")
        ElseIf e.CommandName = "New" Then
            txtError.ForeColor = Drawing.Color.Black
            txtError.Visible = True
            txtError.Text = " Adding a new order will add a default Order Details record " + _
             "and return you to the GridView to select and edit it."
        End If
    End Sub

    Private Sub dvOrdersLinked_ItemDeleted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeletedEventArgs) Handles dvOrdersLinked.ItemDeleted
        If e.Exception IsNot Nothing Then
            txtError.ForeColor = Drawing.Color.Red
            txtError.Visible = True
            txtError.Text = e.Exception.Message
            e.ExceptionHandled = True
        Else
            Response.Redirect("LinkedGridViewBE.aspx")
            txtError.Visible = False
            txtError.Text = ""
        End If
    End Sub

    Private Sub dvOrdersLinked_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles dvOrdersLinked.ItemInserted
        txtError.Visible = True
        If e.Exception IsNot Nothing Then
            txtError.Text = e.Exception.Message
            e.ExceptionHandled = True
        Else
            txtError.ForeColor = Drawing.Color.Black
            txtError.Text = " Edit the default Order Details record added for a new order."
            Response.Redirect("LinkedGridViewBE.aspx")
        End If
    End Sub

    Private Sub dvOrdersLinked_ItemUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdatedEventArgs) Handles dvOrdersLinked.ItemUpdated
        If e.Exception IsNot Nothing Then
            txtError.ForeColor = Drawing.Color.Red
            txtError.Visible = True
            txtError.Text = e.Exception.Message
            e.ExceptionHandled = True
        Else
            txtError.Visible = False
            txtError.Text = ""
        End If
    End Sub

    Private Sub dvOrdersLinked_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dvOrdersLinked.PageIndexChanged
        txtError.ForeColor = Drawing.Color.Red
        txtError.Visible = False
        txtError.Text = ""
    End Sub
End Class