DataPager指定跳頁功能

Private Sub JumpPage(ByVal _JumpPage As Integer) 'DataPager指定跳頁功能
    '算出指定頁的起始索引值
    Dim lowerBand As Integer = (_JumpPage - 1) * Me.DataPager.PageSize
    Me.DataPager.SetPageProperties(lowerBand, Me.DataPager.PageSize, True)
End Sub