分页时使当前页码变色
''以下代碼放在DataGrid的ItemCreated事件中即可
Dim i As Integer
If e.Item.ItemType = ListItemType.Pager Then
Dim _labPage As Label
Dim pager As TableCell
pager = CType(e.Item.Controls(0), TableCell)
For i = 0 To pager.Controls.Count - 1
Dim obj As Control
obj = pager.Controls(i)
Try
_labPage = CType(obj, Label)
_labPage.ForeColor = Color.Red
Catch ex As Exception
End Try
Next
End If