Datatable üzerinde sayfalama işlemi

'Sayfada görüntülenecek kayıt sayısı
Dim pageSize As Integer = 1000

Dim skipNumber As Integer = 0

If pageNo < 1 Then
        skipNumber = 0
Else
        skipNumber = (pageNo - 1) * PageSize
End If

MyDatatable'ın dolu olduğunu düşünürsek ekran üzerinden aktarılacak pageNo üzerinden pageSize adet kadar kaydın DataGridView kontrolü üzerinde görüntülenmesi sağlanır.

Dim pageDT as Datatable=Nothing

Try
      If MyDatatable.Rows.Count > 0 Then
           pageDT = QueryDatatable.AsEnumerable().Skip(skipNumber).Take(PageSize).CopyToDataTable()
      Else
           pageDT = New DataTable
      End If
Catch ex As Exception
      pageDT = New DataTable

End Try

DataGridView.DataSource=pageDT



'How to paging datatable