您的位置：首页 > 其它

一个datagrid 删除确认例子

2008-05-01 03:56 561 查看

<%@ 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, 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>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航