如何在Microsoft Access报表中合并多行信息并避免重复值显示

前提准备：确保记录排序正确 #

首先需要让报表的记录按SalesMonth→SalesAgent→ProductCategory的顺序排序，这样相同值的记录才会连续排列，才能实现重复值隐藏：

• 打开报表的记录源查询（或直接新建查询），添加tblSales的所有字段，设置排序规则：
  1. SalesMonth 升序
  2. SalesAgent 升序
  3. ProductCategory 升序
• 保存查询，将报表的记录源设置为这个查询；或者直接在报表设计视图的排序与分组窗口中设置上述排序规则。

方法一：利用报表控件的「隐藏重复值」属性（简单快捷） #

1. 打开报表的设计视图，找到SalesMonth、SalesAgent对应的文本框控件。
2. 分别选中这两个文本框，打开属性表（右键→属性）：
   • 在格式选项卡中，找到「隐藏重复值」，设置为是。
3. 切换到报表视图预览，就能看到相同的SalesMonth和SalesAgent值只会在第一次出现时显示，后续重复的行中对应位置为空，和你想要的效果一致。

方法二：用VBA代码精确控制（适合复杂场景） #

如果需要更灵活的控制，比如跨分组的重复值处理，可以用VBA记录上一条记录的字段值，和当前值对比：

1. 在报表设计视图中，打开报表的代码窗口（右键报表选择器→代码）。
2. 声明两个模块级变量，用于存储上一条记录的值：

   Dim prevMonth As String
   Dim prevAgent As String
   

3. 在报表的Detail节的Format事件中添加代码：

   Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
       ' 处理SalesMonth字段
       If Me.SalesMonth = prevMonth Then
           Me.SalesMonth.Visible = False
       Else
           Me.SalesMonth.Visible = True
           prevMonth = Me.SalesMonth
       End If
       
       ' 处理SalesAgent字段
       If Me.SalesAgent = prevAgent Then
           Me.SalesAgent.Visible = False
       Else
           Me.SalesAgent.Visible = True
           prevAgent = Me.SalesAgent
       End If
   End Sub
   

4. 在报表的Report节的Open事件中初始化变量：

   Private Sub Report_Open(Cancel As Integer)
       prevMonth = ""
       prevAgent = ""
   End Sub
   

5. 保存代码后预览报表，即可实现重复值隐藏效果。

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