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

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