将一个DataTable分解成多个DataTable

我们所接触的一个系统在导出数据到Excel的时候，产生了内存溢出的错误。原因在于数据过大，它导出是将所有数据存放在一个DataSet的一个表中，再将这个数据集放入session,在导出功能所在的页面再读取该session的值，并绑定在一个DataGrid，再进行相关导出处理。因为系统不是我们开发的，我们就打算在数据存入session的时候，将数据表分解成多个表存入DataSet,这样在绑定DataGrid并处理的时候，能够一个个table的处理。测试后证明，方法是成功了。下面就把代码一贴，有类似需求的可以大概看看，希望能有所帮助。

C# 代码：

  ///   <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;
        }

VB.NET 代码：

   ' ===============================================================================
     '  Author: Ray Chang
     '  Date: 2007/04/11
     '  Description: This function splits a givin datatabe into several tables and 
     '               create a new dataset to hold these tables. 
     ' ================================================================================
     Public   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

             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
             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 )
                        tableSlice(i).ImportRow(originalTab.Rows(k))
                     Next
                 End   If
             Next

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

         ' return dataset
        SplitDataTable  =  ds
     End Function

先用Ｃ＃写的，可是系统用的却是VB.NET,只能又转成了VB.NET. 整个方法返回一个包含了分解后的table的DataSet, 所传入的参数主要２个：一是所需要分解的表，还有一个是每一个表所包含的数据量，而最后一个表将会包含设定的数据量加上余数。至于转换后如何操作，我就不罗嗦了。

这个方法应用的地方不多，除非特别案例，如果那个系统从开头设计好，估计后期也不用做这种改动。总之贴出来，能用到大家就用吧。
- Ray Chang  2007年4月11日
转自： http://www.cnblogs.com/Rayinuk/archive/2008/11/04/709336.html

转载于:https://www.cnblogs.com/lifuyun/archive/2009/09/17/lifuyun09091701.html