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