SharePoint中使用SPSiteDataQuery实现多列表分页的方案咨询

我来帮你解决这个SharePoint WebPart的分页性能问题，针对你的多列表查询场景，有几个可行的方案，既能保证按修改时间排序，又能在查询层面实现分页，避免拉取全部数据的性能开销：

方案1：正确利用SPSiteDataQuery的内置分页功能 #

其实SPSiteDataQuery是支持ListItemCollectionPosition分页的，只是多列表场景下需要正确维护分页状态。这个方法不需要改动太多现有代码，就能实现查询层面的分页：

实现步骤： #

1. 在WebPart的ViewState中保存分页位置（首次加载时为空）
2. 每次查询时将分页位置赋值给SPSiteDataQuery.ListItemCollectionPosition
3. 查询完成后更新分页状态，供下一页使用

修改你的代码片段如下：

' 从ViewState读取分页位置（首次加载时为Nothing）
Dim position As SPListItemCollectionPosition = Nothing
If ViewState("PagingPosition") IsNot Nothing Then
    position = New SPListItemCollectionPosition(ViewState("PagingPosition").ToString())
End If

Dim query As New SPSiteDataQuery()
' 保留你原有的Lists、ViewFields、Query、Webs等设置
query.RowLimit = 30
query.ListItemCollectionPosition = position ' 关键：设置当前分页位置

Dim temp As DataTable = objWeb.GetSiteData(query)

' 保存新的分页位置到ViewState，用于下一页查询
If temp IsNot Nothing AndAlso temp.Rows.Count > 0 Then
    ViewState("PagingPosition") = query.ListItemCollectionPosition.ToString()
Else
    ViewState("PagingPosition") = Nothing
End If

' 后续处理DataTable绑定SPGridView的代码保持不变

注意事项： #

• 多列表场景下，ListItemCollectionPosition会自动跟踪当前的列表和项目位置，确保按Modified降序的排序连贯性，不需要手动拼接筛选条件
• 用ViewState存储分页位置的字符串表示，避免直接存储对象的序列化问题

方案2：使用SharePoint Search API（大数据量场景推荐） #

如果你的环境是SharePoint 2013及以上，强烈推荐用Search API替代SPSiteDataQuery，因为搜索原生支持跨列表、跨站点的高效分页和排序，性能远超直接查询列表数据：

示例CSOM代码（VB.NET）： #

' 初始化客户端上下文
Dim clientContext As New ClientContext(objWeb.Url)
Dim searchQuery As New KeywordQuery(clientContext)

' 筛选所有文档库的文件（ContentTypeId:0x0101* 对应文档类型）
searchQuery.QueryText = "ContentTypeId:0x0101*"
' 指定需要返回的字段
searchQuery.SelectProperties.Add("FileLeafRef") ' 文件名
searchQuery.SelectProperties.Add("LastModifiedTime") ' 修改时间
searchQuery.SelectProperties.Add("Editor") ' 修改人
searchQuery.SelectProperties.Add("ListTitle") ' 所属列表名称
searchQuery.SelectProperties.Add("FileRef") ' 文件完整路径
' 按修改时间降序排序
searchQuery.SortList.Add("LastModifiedTime", SortDirection.Descending)
' 设置分页参数：每页30条，currentPage为当前页码（从0开始）
searchQuery.RowLimit = 30
searchQuery.StartRow = currentPage * 30

' 执行搜索查询
Dim searchExecutor As New SearchExecutor(clientContext)
Dim results As ResultTableCollection = searchExecutor.ExecuteQuery(searchQuery)
clientContext.ExecuteQuery()

' 处理查询结果，转换为DataTable绑定到SPGridView
Dim resultTable As ResultTable = results("PrimaryQueryResult")
' 这里可以遍历resultTable的行，填充你的dtTable

优势： #

• 基于预构建的搜索索引，查询速度极快，适合上万条数据的场景
• 分页逻辑简单，通过StartRow和RowLimit直接控制，无需维护复杂的位置标记
• 支持更多筛选、排序和聚合功能，扩展性更强

方案3：自定义分页逻辑（仅作备选） #

如果上述两种方案都无法使用，你可以尝试两步查询的方式，但不推荐用于大数据量场景：

1. 先查询所有符合条件的项目的ID和Modified时间，按Modified排序后，分页截取当前页的ID列表
2. 再用SPSiteDataQuery查询这些ID对应的具体项目

这种方法需要两次查询，且第一次查询仍会拉取所有符合条件的项目元数据，性能提升有限，仅作为应急方案。

内容的提问来源于stack exchange，提问作者J.C