在某些情况下可能需要必须对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;
}
/// 对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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。