如何依据数据手动来对报表进行添加空行

yanwei82123300

今天从论坛上发现一个比较不错的例子：是手动添加报表空行，但是格式是MDE的没法学习到代码，请问哪位老师可以知道是如何制作的，请分享一下，谢谢

t小宝

那个MDE不是我的啦，论坛上有很多报表加空行的方法都是有源码的，自己下来研究一下吧

yanwei82123300

谢谢上面二位老师的帮助！

roych

好像是t小宝的作品……请自行创建模块处理。

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. '************************************************************************************************
   
5. '参数说明:
   
6. 'ReportSheet (rpt, LeftControl, RightControl, RowsOfPage, Style)
   
7. '           rpt：必选，报表名称
   
8. '           LeftControl：必选，最左边控件名称，用于确定左边距。
   
9. '           RightControl：必选，最右边控件名称，用于确定右边距。
   
10. '           RowsOfPage：可选，为每页指定行数
    
11. '           Style：可选，0为方框，1为仅画横线，2为仅画竖线。
    
12. '调用说明：
    
13. '在报表中“打印页前”事件中调用：=ReportSheet (rpt, [左控件名称], [右控件名称], RowsOfPage, Style)
    
14. '*************************************************************************************************
    
15. Public Function ReportSheet(rpt As Report, LeftControl As Control, RightControl As Control, _
    
16.                             Optional RowsOfPage As Integer, Optional Style As Integer = 0)
    
17. On Error Resume Next
    
18. 
    
19.     Dim intI As Integer
    
20.     Dim lngTop As Long
    
21.     Dim lngBottom As Long
    
22.     Dim lngLeft As Long
    
23.     Dim lngRight As Long
    
24.     Dim lngRowHeight As Long
    
25.    
    
26.     Dim lngRows As Long
    
27.     Dim lngRowTop As Long
    
28.     Dim lngBottomMax As Long
    
29.    
    
30.     Dim ctl As Control
    
31.    
    
32.     With rpt
    
33.         lngRowHeight = .Section(acDetail).Height
    
34.         lngTop = .Section(acPageHeader).Height
    
35.         If .Page = 1 Then lngTop = lngTop + .Section(acHeader).Height
    
36.         lngBottomMax = .Section(acPageFooter).Height
    
37.         lngBottomMax = .ScaleHeight - lngBottomMax
    
38.     End With
    
39. 
    
40.     lngRows = Int((lngBottomMax - lngTop) / lngRowHeight)
    
41.     If RowsOfPage > 0 Then
    
42.        If RowsOfPage < lngRows Then lngRows = RowsOfPage
    
43.     End If
    
44.     lngBottom = lngTop + lngRowHeight * lngRows
    
45.    
    
46.     lngLeft = rpt.ScaleWidth
    
47.     For Each ctl In rpt.Section(acDetail).Controls
    
48.         If lngLeft > ctl.Left Then lngLeft = ctl.Left
    
49.         If lngRight < ctl.Left + ctl.Width Then lngRight = ctl.Left + ctl.Width
    
50.         If Style <> 1 Then rpt.Line (ctl.Left, lngTop)-(ctl.Left, lngBottom)
    
51.     Next
    
52.     If Style <> 1 Then rpt.Line (lngRight, lngTop)-(lngRight, lngBottom)
    
53.    
    
54.    
    
55.     If Style <> 2 Then
    
56.         For intI = 0 To lngRows
    
57.             rpt.Line (lngLeft, lngTop + lngRowHeight * intI)-(lngRight, lngTop + lngRowHeight * intI)
    
58.             
    
59.         Next
    
60.     End If
    
61.         
    
62. End Function

复制代码

koutx

无非是给订单表中插指定多的空行再删除而已，你没看有一个删除查询(sc)吗。
你指定要插入的空行数存在订单设置表中的kh字段
在报表的打开和关闭事件中估计是如下代码：
大致如下：
Private Sub Report_Open(Cancel As Integer)
Dim sz As Integer
sz = Nz(DLookup("kh", "报表设置", "kh >= 0"), 0)

If sz > 0 Then
    For i = 1 To sz
        DoCmd.RunSQL "INSERT INTO 订单表 (订单数量) VALUES (Null)"
    Next
End If

Dim sqlS As String
sqlS = "SELECT 订单编号, 客户名称, 订单数量, 订单日期, 备注 FROM 订单表"

Me.RecordSource = sqlS

End Sub

Private Sub Report_Close()
DoCmd.OpenQuery "sc"
End Sub