.net将一个DataTable拆分成n个DataTable

/// <summary>
/// 分解数据表
/// </summary>
/// <param name="originalTab">需要分解的表</param>
/// <param name="rowsNum">每个表包含的数据量</param>
/// <returns></returns>
public DataSet SplitDataTable(DataTable originalTab, int rowsNum)
{
//获取所需创建的表数量
int tableNum = originalTab.Rows.Count / rowsNum;

//获取数据余数
int remainder = originalTab.Rows.Count % rowsNum;

DataSet ds = new DataSet();

//如果只需要创建1个表，直接将原始表存入DataSet
if (tableNum == 0)
{
ds.Tables.Add(originalTab);
}
else
{
DataTable[] tableSlice = new DataTable[tableNum];

//Save orginal columns into new table.
for (int c = 0; c<tableNum; c++)
{
tableSlice[c] = new DataTable();
foreach(DataColumn dc in originalTab.Columns)
{
tableSlice[c].Columns.Add(dc.ColumnName,dc.DataType);
}
}
//Import Rows
for (int i = 0; i < tableNum; i ++)
{
// if the current table is not the last one
if (i != tableNum -1)
{
for(int j = i*rowsNum ; j < ((i+1)*rowsNum); j++)
{
tableSlice[i].ImportRow(originalTab.Rows[j]);
}
}
else
{
for(int k = i*rowsNum ; k < ((i+1)*rowsNum+remainder); k++)
{
tableSlice[i].ImportRow(originalTab.Rows[k]);
}
}
}

//add all tables into a dataset
foreach(DataTable dt in tableSlice)
{
ds.Tables.Add(dt);
}
}
return ds;
}

Public Shared Function SplitDataTable(ByVal originalTab As DataTable, ByVal rowsNum As Integer) As DataSet

Dim tableNum As Integer = originalTab.Rows.Count \ rowsNum    '相除取整
Dim remainder As Integer = originalTab.Rows.Count Mod rowsNum  '相除取余数
Dim ds As DataSet = New DataSet
'if one table is big enough to store, use one table
If tableNum = 0 Then
ds.Tables.Add(originalTab)
Else

If remainder > 0 Then   '如果有余数，需要多一张表存余数
tableNum = tableNum + 1
End If

Dim tableSlice(tableNum - 1) As DataTable

'Save orginal columns into new table
Dim c As Integer
For c = 0 To (tableNum - 1)
tableSlice(c) = New DataTable
For Each dc As DataColumn In originalTab.Columns
tableSlice(c).Columns.Add(dc.ColumnName, dc.DataType)
Next
Next

'Import Rows
Dim i As Integer
If remainder > 0 Then
For i = 0 To (tableNum - 1)
'if the current table is not the last table
If i <> tableNum - 1 Then
Dim j As Integer
For j = i * rowsNum To (((i + 1) * rowsNum) - 1)
tableSlice(i).ImportRow(originalTab.Rows(j))
Next
Else
Dim k As Integer
'For k = i * rowsNum To (((i + 1) * rowsNum + remainder) - 1)
For k = i * rowsNum To ((i * rowsNum + remainder) - 1)
tableSlice(i).ImportRow(originalTab.Rows(k))
Next
End If
Next
Else
For i = 0 To (tableNum - 1)
Dim j As Integer
For j = i * rowsNum To (((i + 1) * rowsNum) - 1)
tableSlice(i).ImportRow(originalTab.Rows(j))
Next
Next
End If

'Add all tables into a dataset
For Each dt As DataTable In tableSlice
ds.Tables.Add(dt)
Next
End If

Return ds
'SplitDataTable = ds
End Function

Dim ds As DataSet = SplitDataTable(pdt, 200)    '新的DataTable为200条数据
If ds.Tables.Count > 0 Then
For i As Integer = 0 To ds.Tables.Count - 1
newDt = ds.Tables(i)   '循环DataSet里面的每张DataTable表
'此处是对每个新DataTable表的操作
next
End IF