学习黄海报表补空行出现重复记录处理

时　间:2012-11-11 15:42:33
作　者:零智   ID：1455  城市：龙岩
摘　要:学习黄海报表补空行出现重复记录处理
正　文:

问题：

本人想做一个送货单软件,用于机打送货单,每页8条记录,于是借用了黄老师的补空行代码,发现如果记录数设为6,一切正常,改为8后,就会出现如下问题,

6第记录以下,功能正常,7条时报表会多出一条记录共九条.而且第7,8条重复.8条时,报表也是多出一条记录,共九条,第8,9条重复.请大家帮忙看看,是哪出了问题.

解决：

将“主体_print代码”修改一下，原代码：

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    L = L + 1
    If L = lAllRecords Then
        Me.NextRecord = False
    ElseIf L > lAllRecords And L < lAllPrintRecords Then
        Me.NextRecord = False
        showHideCtrlAtDetail False
    End If
End Sub

修改后代码：

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    L = L + 1
    If L >= lAllRecords And L < lAllPrintRecords Then
        Me.NextRecord = False
    End If
    If L > lAllRecords Then
        showHideCtrlAtDetail False
    End If
End Sub