网格视图的VB.NET扩展方法

Imports System.Runtime.CompilerServices
Imports System.Web.UI.WebControls

Public Module GridViewExtensions
    <Extension()>
    Public Sub HighlightRow(gridView As GridView, rowIndex As Integer)
        If rowIndex >= 0 AndAlso rowIndex < gridView.Rows.Count Then
            Dim row As GridViewRow = gridView.Rows(rowIndex)
            row.CssClass = "highlight"
        End If
    End Sub
End Module

Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridView1.RowDataBound
    If e.Row.RowType = DataControlRowType.DataRow Then
        ' 高亮第三行
        e.Row.GridView.HighlightRow(2)
    End If
End Sub