'我的处理办法,以下程序是打8条记录的,不足8条补空记录,但不更新数据库
nRecordCount = DE_Report.rsCom_J_Cktzd.RecordCount
If nRecordCount < 8 Then
For iAddnew = 1 To 8 - nRecordCount
DE_Report.rsCom_J_Cktzd.AddNew
Next
Else
If nRecordCount > 8 Then
For iAddnew = 1 To 8 - (nRecordCount - Int(nRecordCount / 8) * 8)
DE_Report.rsCom_J_Cktzd.AddNew
Next
End If
End If