復制代碼 代碼如下:

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