如何在报表设计中打印出一组数据

http://www.accessoft.com/bbs/showtopic.asp?id=29928

网友问题帖子整理:

我想采样报表设计和非设计向导来设计报表，想让如下数据按照 第一行为一页，第2和3行为一页，因为他们有相同的前三位，第四行为一页。

请问这样需要如何操作，如果是报表向导，我可以用分组。但是我在普通的报表设计里面如何实现这个功能呢？

谢谢

字段1  字段2

100      1001

101      1011

101      1012

102       1021

103       1031

二种方法实现: 

方法一、用分页符实现，代码：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

   If Me.字段1 <> DLookup("字段1", "表1", "id=" & [ID] + 1) Then
             Me.PageBreak0.Visible = True
          Else
             Me.PageBreak0.Visible = False
         End If
       End Sub

方法二、用强制分页代码实现，代码：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

   If Me.字段1 <> DLookup("字段1", "表1", "id=" & [ID] + 1) Then

     Me.主体.ForceNewPage = 1

   Else

     Me.主体.ForceNewPage = 0

   End If

End Sub

注：代码执行必须在打印预览的状态下执行！

附   件:

点击下载附件