如何在用户点击「查看报表」前获取报表所有参数的默认值？

我之前在处理SSRS报表参数追踪需求时遇到过完全一样的问题，这里分享两个实用的解决方案，分别用VB代码和SQL实现，帮你搞定参数修改的识别：

这个方案适合在报表端直接处理参数对比，不需要修改数据库逻辑。核心思路是提前加载默认参数值，再和用户提交的参数做对比。

步骤1：编写自定义VB代码 #

在报表的「报表属性」→「代码」里添加以下代码：

' 全局变量存储默认参数值
Public Shared defaultCommodities As List(Of String)

' 加载默认参数值的函数
Public Sub LoadDefaultCommodities()
    ' 复用报表数据源的连接字符串，避免硬编码
    Dim connStr As String = Report.DataSources("你的数据源名称").ConnectionString
    Using conn As New SqlClient.SqlConnection(connStr)
        conn.Open()
        ' 这里替换成你获取Commodity默认值的查询/存储过程
        Dim cmd As New SqlClient.SqlCommand("SELECT CommodityName FROM GetAllCommodities", conn)
        Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader()
        
        defaultCommodities = New List(Of String)()
        While reader.Read()
            defaultCommodities.Add(reader("CommodityName").ToString())
        End While
        
        reader.Close()
    End Using
End Sub

' 对比默认值和用户选择，返回修改情况
Public Function GetCommodityChanges(userSelected As Object) As String
    ' 将用户传入的多值参数转为字符串列表
    Dim userList As List(Of String) = DirectCast(userSelected, IEnumerable).Cast(Of String)().ToList()
    
    ' 计算差异：移除的项（默认有但用户没选）、新增的项（用户选了但默认没有）
    Dim removedItems = defaultCommodities.Except(userList).ToList()
    Dim addedItems = userList.Except(defaultCommodities).ToList()
    
    Dim resultBuilder As New StringBuilder()
    If removedItems.Count > 0 Then
        resultBuilder.AppendLine($"移除的商品：{String.Join(", ", removedItems)}")
    End If
    If addedItems.Count > 0 Then
        resultBuilder.AppendLine($"新增的商品：{String.Join(", ", addedItems)}")
    End If
    If resultBuilder.Length = 0 Then
        resultBuilder.AppendLine("未修改商品参数")
    End If
    
    Return resultBuilder.ToString()
End Function

步骤2：触发默认值加载 #

在报表的「报表属性」→「事件」里，找到Report_Load事件，绑定Code.LoadDefaultCommodities()，这样报表打开时就会自动加载默认参数值。

步骤3：显示参数修改情况 #

在报表里添加一个文本框，设置其表达式为：

=Code.GetCommodityChanges(Parameters!Commodity.Value)

这样用户运行报表时，就能直接看到Commodity参数的修改情况了。

如果你的报表逻辑主要在数据库端，这个方案更合适，直接在存储过程里完成参数对比，还能顺便把修改记录存入审计表。

步骤1：创建表值参数（用于接收多值参数） #

首先定义一个表值类型，用来接收用户选择的多值参数：

CREATE TYPE dbo.CommodityList AS TABLE (CommodityName NVARCHAR(100))
GO

步骤2：编写带参数追踪的存储过程 #

CREATE PROCEDURE dbo.RunReport_WithParameterTracking
    @UserSelectedCommodities dbo.CommodityList READONLY,
    @ReportRunBy NVARCHAR(50) -- 可选：记录谁运行的报表
AS
BEGIN
    SET NOCOUNT ON;

    -- 1. 获取默认参数值（和报表参数默认值的逻辑完全一致）
    DECLARE @DefaultCommodities TABLE (CommodityName NVARCHAR(100))
    INSERT INTO @DefaultCommodities
    EXEC dbo.GetAllCommodities -- 替换成你获取默认值的存储过程/查询

    -- 2. 计算参数修改情况
    DECLARE @ParameterChanges TABLE (ChangeType NVARCHAR(20), CommodityName NVARCHAR(100))
    INSERT INTO @ParameterChanges
    -- 移除的项：默认有但用户没选
    SELECT '移除' AS ChangeType, CommodityName FROM @DefaultCommodities
    EXCEPT
    SELECT '移除' AS ChangeType, CommodityName FROM @UserSelectedCommodities

    UNION ALL

    -- 新增的项：用户选了但默认没有
    SELECT '新增' AS ChangeType, CommodityName FROM @UserSelectedCommodities
    EXCEPT
    SELECT '新增' AS ChangeType, CommodityName FROM @DefaultCommodities

    -- 3. 可选：把修改情况存入审计表
    INSERT INTO dbo.ReportParameterAudit
    (ReportName, RunTime, RunBy, ChangeType, ParameterValue)
    SELECT '你的报表名称', GETDATE(), @ReportRunBy, ChangeType, CommodityName
    FROM @ParameterChanges

    -- 4. 执行原报表查询逻辑，这里可以关联参数修改情况返回给报表
    SELECT 
        -- 你的报表字段
        rp.*,
        pc.ChangeType
    FROM dbo.ReportData rp
    LEFT JOIN @ParameterChanges pc ON rp.CommodityName = pc.CommodityName
    WHERE rp.CommodityName IN (SELECT CommodityName FROM @UserSelectedCommodities)
END

步骤3：配置报表参数 #

在SSRS报表里，把Commodity参数的「参数传递方式」设置为「表值参数」，对应存储过程的@UserSelectedCommodities参数，这样就能把用户选择的多值参数正确传入存储过程。

• 不管用哪种方案，必须确保获取默认值的逻辑和报表参数默认值的逻辑完全一致，比如如果默认值是带过滤条件的存储过程，那获取默认值时也要用相同的过滤条件，否则对比结果会出错。
• 对于多值参数，SSRS默认会把参数转为逗号分隔的字符串，用表值参数能避免拆分字符串的麻烦，推荐优先使用。
• VB代码里如果遇到权限问题，可以在报表服务器上配置数据源的权限，确保报表能执行获取默认值的查询。

内容的提问来源于stack exchange，提问作者DarthVoid