取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

posted @ 2010-12-02 15:35  Sunny Peng  阅读(2093)  评论(3编辑  收藏  举报