取DataTable的部分行作为数据源

从数据库中查询出来的数据有很多行，有时只想取部分行，比如前100行。

无法直接用原始的DataTable，只有通过创建新的DataTable，为其创建列，行数据从原始的DataTable中拷贝出来。

        Dim ds As DataSet = SqlHelper.ExecuteDataSet(SqlHelper.ConnectionString, CommandType.StoredProcedure, sp_name, params)
        Dim drSoruce As DataTable = ds.Tables(0)
        Dim dtProvider As New DataTable
        dtProvider.Columns.Add("WebSiteID")
        dtProvider.Columns.Add("CategoryID")
        dtProvider.Columns.Add("WebSiteArticleID")
        dtProvider.Columns.Add("Title")
        dtProvider.Columns.Add("ArticleUrl")
        dtProvider.Columns.Add("DatePosted")
        dtProvider.Columns.Add("Views")
        dtProvider.Columns.Add("Replies")
        For i = 0 To 99
               Dim drTarget As DataRow = dtProvider.NewRow()
               drTarget.ItemArray = drSoruce.Rows(i).ItemArray
               dtProvider.Rows.Add(drTarget)
        Next
        Return dtProvider