<%@ Page language= "VB" debug= "true"%>
<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 for your 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 for your sure you want to delete this company? ')
End Select
End Sub
Sub Datagrid_deleterow (sender as Object, E as EventArgs)
Label1.Text = "HEY, can ' t delete that company!"
End Sub
</script>
<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" runat= "Server" text= "Delete Row"/>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
<p>
</form>
</body>
