Protected Sub GridViewCosmetic_RowCreated(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.FindControl("LinkButton1") IsNot Nothing Then
Dim link As LinkButton = DirectCast(e.Row.FindControl("LinkButton1"), LinkButton)
AddHandler link.Click, AddressOf link_click
End If
End If
End Sub
Private Sub link_click(sender As Object, e As EventArgs)
Dim link As LinkButton = DirectCast(sender, LinkButton)
Dim gvr As GridViewRow = DirectCast(link.Parent.Parent, GridViewRow)
Response.Write("scr" "ipt>alert('你選擇的行索引是：" gvr.RowIndex "')/scr" "ipt>")
End Sub