Private Sub DG_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DG.ItemCreated
Dim elemType As ListItemType = e.Item.ItemType
Select Case elemType
Case ListItemType.AlternatingItem
Case ListItemType.EditItem
Case ListItemType.Footer
Case ListItemType.Header
Case ListItemType.Item
Case ListItemType.Pager
''''''''''''''''''''''''''''''''''''''''
' PAGER
''''''''''''''''''''''''''''''''''''''''
Dim tc As TableCell = CType(e.Item.Controls(0), TableCell)
Dim i As Integer
For i = 0 To tc.Controls.Count - 1 Step 2
Dim obj As Object = tc.Controls(i)
If TypeOf obj Is LinkButton Then
Dim h As LinkButton = CType(obj, LinkButton)
h.Text = "[" + h.Text + "]"
Else
Dim l As Label = CType(obj, Label)
l.Text = "第" + l.Text + "页"
End If
Next