代码如下: '首页 Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton1.Click MyDataGrid.CurrentPageIndex = 0 Session("page") = 0 Bindquery("roleid")
End Sub 'previous page Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton2.Click If (MyDataGrid.CurrentPageIndex > 0) Then MyDataGrid.CurrentPageIndex -= 1 End If Session("page") = MyDataGrid.CurrentPageIndex Bindquery("roleid") End Sub 'next page Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton3.Click If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then MyDataGrid.CurrentPageIndex += 1 End If Session("page") = MyDataGrid.CurrentPageIndex Bindquery("roleid") End Sub'last page Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton4.Click MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1) Session("page") = MyDataGrid.CurrentPageIndex Bindquery("roleid") End Sub
'首页
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton1.Click MyDataGrid.CurrentPageIndex = 0
Session("page") = 0
Bindquery("roleid")
End Sub 'previous page
Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton2.Click If (MyDataGrid.CurrentPageIndex > 0) Then
MyDataGrid.CurrentPageIndex -= 1 End If
Session("page") = MyDataGrid.CurrentPageIndex
Bindquery("roleid")
End Sub 'next page
Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton3.Click If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
MyDataGrid.CurrentPageIndex += 1 End If
Session("page") = MyDataGrid.CurrentPageIndex
Bindquery("roleid")
End Sub'last page
Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linkbutton4.Click MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
Session("page") = MyDataGrid.CurrentPageIndex
Bindquery("roleid")
End Sub