處理的代碼:
Sub OnClick(obj As object,e As commandeventargs) '¤À¶ªº¥N½X
Dim cmd As string=e.commandname
Select Case cmd
Case "next"
If Mydatagrid.currentpageindex<Mydatagrid.pagecount-1 Then
Mydatagrid.currentpageindex=Mydatagrid.currentpageindex+1
end if
Case "prev"
If Mydatagrid.currentpageindex>0 Then
Mydatagrid.currentpageindex=Mydatagrid.currentpageindex-1
end if
case "firsts"
Mydatagrid.currentpageindex=0
case "lasts"
Mydatagrid.currentpageindex = Mydatagrid.PageCount-1
End Select
Mydatagrid_DataBind()
End Sub