在datagrid中删除时确定？（转）

最新推荐文章于 2024-05-03 16:52:16 发布

rickjelly2004

最新推荐文章于 2024-05-03 16:52:16 发布

阅读量859

点赞数

分类专栏： ASP。NET的经典收藏文章标签： datagrid string delete server button microsoft

ASP。NET的经典收藏专栏收录该内容

59 篇文章 0 订阅

订阅专栏

在datagrid中删除时确定？（转）

转贴：Andy.m 日期：2003-07-12 人气：37

<%@ Page Language="VB" Debug="true" %>
<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
    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 DataGrid_ItemCreated(Sender As Object, e As DataGridItemEventArgs)

        Select Case e.Item.ItemType
            Case ListItemType.Item
        Dim myDeleteButton As Button
            myDeleteButton = e.Item.FindControl("btnDelete")
         myDeleteButton.Attributes.Add("onclick","return confirm('Are you Sure you want to delete this company?');")

        Case ListItemType.AlternatingItem
                Dim myDeleteButton As Button
            myDeleteButton = e.Item.FindControl("btnDelete")
         myDeleteButton.Attributes.Add("onclick","return confirm('Are you Sure you want to delete this company?');")

        End Select

    End Sub

    Sub DataGrid_DeleteRow(sender As Object, e As EventArgs)
        Label1.Text = "HEY, you can't delete that company!"
    End Sub

</script>

</head>
<body>

    <asp:Label id="Label1" runat="Server" />

    <form runat=server>
       <asp:DataGrid id="myDataGrid"
           OnItemCreated="DataGrid_ItemCreated"
           DataKeyField="Name"
           AutoGenerateColumns="True"
           runat="server">

    <Columns>
    <asp:TemplateColumn HeaderText="Delete?">
          <ItemTemplate>
               <asp:button id="btnDelete" OnClick="DataGrid_DeleteRow" runat="Server" Text="Delete Row" />
          </ItemTemplate>
    </asp:TemplateColumn>
        </Columns>

       </asp:DataGrid>
       <p>
    </form>
</body>
</html>

rickjelly2004

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
在datagrid中删除时确定？（转）

在datagrid中删除时确定？（转）转贴：Andy.m 日期：2003-07-12 人气：37 Sub Page_Load(Sender As Object, e As EventArgs) If Not IsPostBack Then Dim values As New ArrayList() value
复制链接

扫一扫