Access：通过VBA设置子报表控件高度时出现无响应问题

核心问题1：无限循环导致Access无响应 #

你在ReportHeader_Format事件中修改子报表控件高度的操作，会触发该事件重复触发——Access在检测到节内控件尺寸变化时，会重新执行节的Format逻辑，形成无限循环，最终导致程序无响应。

核心问题2：子报表高度设置时机与逻辑偏差 #

直接修改主报表中子报表控件的高度，并不能让子报表内部的两列布局自动适配等高，且ReportHeader_Format事件本身不适合做这种尺寸修改操作。

具体修复步骤 #

1. 阻止无限循环
   在报表模块顶部声明一个私有标志变量，控制Format事件仅执行一次修改：

Private blnHeaderFormatted As Boolean

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
    ' 仅首次进入事件时执行高度设置
    If Not blnHeaderFormatted Then
        ' 保留你的高度计算代码
        Me.Controls(strSubreport).Height = intControlHt
        blnHeaderFormatted = True
    End If
End Sub

2. 正确配置子报表的两列布局

• 打开子报表设计视图，点击菜单栏页面设置，在「列」选项卡中：
  • 设置列数为2
  • 列布局选择「先列后行」（对应你需要的“先纵向后横向”排列）
• 将子报表的CanGrow和CanShrink属性设为False，避免Access自动调整高度覆盖你的设置。

3. 调整高度计算与设置的时机
   建议将逻辑移到主报表的Open事件中（仅执行一次，无循环风险）：

Private Sub Report_Open(Cancel As Integer)
    Dim intRecordCount As Integer
    Dim intRowHeight As Integer
    Dim intControlHt As Integer
    Dim strSubreport As String
    
    ' 示例：获取子报表记录数（需根据你的数据源调整）
    strSubreport = "你的子报表控件名称"
    intRecordCount = DCount("*", Me(strSubreport).Report.RecordSource)
    intRowHeight = Me(strSubreport).Report.Section(acDetail).Height ' 子报表明细行高度
    
    ' 计算所需高度：向上取整(记录数/2) × 行高
    intControlHt = ((intRecordCount + 1) \ 2) * intRowHeight
    
    ' 设置子报表控件高度
    Me.Controls(strSubreport).Height = intControlHt
End Sub

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