对DataTable进行分页

在某些情况下可能需要必须对datatable进行分页如下：

C#：

        /**//// <summary>
        /// 对DataTable进行分页,起始页为1
        /// </summary>
        /// <param name="dt"></param>
        /// <param name="PageIndex"></param>
        /// <param name="PageSize"></param>
        /// <returns></returns>
        public static DataTable GetPagedTable(DataTable dt, int PageIndex, int PageSize)
        ...{
            if (PageIndex == 0)
                return dt;
            DataTable newdt = dt.Copy();
            newdt.Clear();

            int rowbegin = (PageIndex - 1) * PageSize;
            int rowend = PageIndex * PageSize;

            if (rowbegin >= dt.Rows.Count)
                return newdt;

            if (rowend > dt.Rows.Count)
                rowend = dt.Rows.Count;
            for (int i = rowbegin; i <= rowend - 1; i++)
            ...{
                DataRow newdr = newdt.NewRow();
                DataRow dr = dt.Rows[i];
                foreach (DataColumn column in dt.Columns)
                ...{
                    newdr[column.ColumnName] = dr[column.ColumnName];
                }
                newdt.Rows.Add(newdr);
            }

            return newdt;
        }

 

VB.net：

         Public Shared Function GetPagedTable(ByVal dt As DataTable, ByVal PageIndex As Integer, ByVal PageSize As Integer) As DataTable
        If PageIndex = 0 Then
            Return dt
        End If
        Dim newdt As DataTable = dt.Copy()
        newdt.Clear()
        Dim rowbegin As Integer = (PageIndex - 1) * PageSize
        Dim rowend As Integer = PageIndex * PageSize
        If rowbegin >= dt.Rows.Count Then
            Return newdt
        End If
        If rowend > dt.Rows.Count Then
            rowend = dt.Rows.Count
        End If
        For i As Integer = rowbegin To rowend - 1
            Dim newdr As DataRow = newdt.NewRow()
            Dim dr As DataRow = dt.Rows(i)
            For Each column As DataColumn In dt.Columns
                newdr(column.ColumnName) = dr(column.ColumnName)
            Next
            newdt.Rows.Add(newdr)
        Next
        Return newdt
    End Function