Question

我想仅在第二页及以上显示标题但PER记录。新细节的第一页不应该显示页眉。

最初我有以下代码

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.PageHeaderSection.Visible = Not (Me.Page = 1)
End Sub

除了第一个页面之外，它显示每个页面上的标题。

我希望在每个组的第一页（但不包括第一页）之后显示标题。

Answer 1

太复杂了。

第一个更好！

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Me.PageHeaderSection.Visible = Not (Me.Page = 1)
    Debug.Print "Page " & Me.Page & " Visible = " & Not (Me.Page = 1)

End Sub

Answer 2

在报告的排序和分组中，添加标识记录的字段以及要分组的字段。在该节标题的OnFormat事件中，执行与上面相同的操作：RecordHeader.Visible =（Me.Page＆lt;＆gt; 1）

Answer 3

我创建了这个简单的子类似乎可以解决问题。基本上，对于每个页面，它会检查该组是否与以前相同。如果它不同，则假定它是该组的第一页，并且不显示标题。

'At the top of the module window I created a "Module-Level Variables".
Dim current_group As Integer
Dim temp_group As Integer

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    current_group = Int(Me.MyGroupID)

    If current_group = temp_inst Then
        Me.PageHeaderSection.Visible = True
    Else
        Me.PageHeaderSection.Visible = False
    End If

    temp_group = current_group    
End Sub

访问报告：每个详细信息的第二页上的页眉

3 个答案: