取DataTable的部分行作为数据源

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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