linkeddetailsview.aspx.vb

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

Option Explicit On
Option Strict On

Imports System.Collections

Partial Class LinkedDetailsView_aspx
    Inherits Web.UI.Page

    Dim blnDeleted As Boolean

    Private Sub dvOrdersLinked_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewCommandEventArgs) Handles dvOrdersLinked.ItemCommand
        Dim strName As String = e.CommandName
    End Sub

    Private Sub dvOrdersLinked_ItemDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewDeleteEventArgs) Handles dvOrdersLinked.ItemDeleting
        blnDeleted = True
    End Sub

    Private Sub odsOrderQueryString_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceSelectingEventArgs) Handles odsOrderQueryString.Selecting
        'An excepion occurs when deleting an order if you don't redirect
        If blnDeleted Then
            Response.Buffer = True
            Response.Redirect("LinkedGridView.aspx")
            blnDeleted = False
        End If
    End Sub

    Private Sub odsOrderQueryString_Updating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceMethodEventArgs) Handles odsOrderQueryString.Updating
        Dim prmInput As ICollection = e.InputParameters
    End Sub
End Class