从数据库中查询出来的数据有很多行，有时只想取部分行，比如前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 DataTabledtProvider.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 99Dim drTarget As DataRow = dtProvider.NewRow()drTarget.ItemArray = drSoruce.Rows(i).ItemArraydtProvider.Rows.Add(drTarget)NextReturn dtProvider