关于如何确认删除的另外一个办法。-ASP.NET教程-爱易网页

关于如何确认删除的另外一个办法。

日期：2013-09-16　浏览次数：20363 次

<pre>
<%@ Page Language="VB" %>
<html>
<head>
    <script language="VB" runat="server">

    Sub Page_Load(Sender As Object, e As EventArgs)
        If Not IsPostBack Then
            Dim values As New ArrayList()

            values.Add(New PositionData("Microsoft", "Msft"))
            values.Add(New PositionData("Intel", "Intc"))
            values.Add(New PositionData("Dell", "Dell"))

            myDataGrid.DataSource = values
            myDataGrid.DataBind()
        End If

    ' add a client click event to the button
        Page.RegisterOnSubmitStatement("OnSubmit", "if(button == 'Delete Company')return confirm('Are you Sure you want to delete this company?');")

    End Sub

    Public Class PositionData

        Private myName As String
        Private myTicker As String

        Public Sub New(newName As String, newTicker As String)
            Me.myName = newName
            Me.myTicker = newTicker
        End Sub

        Public ReadOnly Property Name() As String
            Get
                Return myName
            End Get
        End Property

        Public ReadOnly Property Ticker() As String
            Get
                Return myTicker
            End Get
        End Property
    End Class

    Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
    Label1.Text = "HEY, you can't delete " & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) & "!"
    End Sub

    Sub MyDataGrid_ItemCreated(Sender As Object, e As DataGridItemEventArgs)

        Select Case e.Item.ItemType
            Case ListItemType.Item, ListItemType.AlternatingItem
        Dim myTableCell As TableCell
        myTableCell = e.Item.Cells(0)
            Dim myDeleteButton As Button
            myDeleteButton = myTableCell.Controls(0)
&nbs