Warum ist dieser Code-Block produziert Laufzeitfehler 91

Question

Dieser Codeblock verursacht Laufzeitfehler 91 oder mit Block nicht gesetzt Fehlern dieser Code zum Öffnen Berichts in Crystal-Bericht in VB6 ist

For DocCodeCount = 0 To cboDoctorsCode.ListCount - 1 
    strReportTitle = "DOCTOR'S TRANSMITTAL COPY" 
    strSqlStatement = "PFMS '" & cboControlCode.Text & "', '" & cboDoctorsCode.List(DocCodeCount) & "', '" & sCurrentUserName & "'" 
    strFilename = App.Path & "\Reports\ClaimsBillProc\PF MS.rpt" 
    newRpt.OpenReport vADOConnection, strSqlStatement, strFilename, strReportTitle, 3, False 
    Set newRpt = Nothing 
Next 

Bei der Verwendung in 1 mal Öffnen des Berichts läuft es gut, aber wenn es auf diese Weise in der Schleife verwendet wird, verursacht es einen Fehler.

Answer 1

Die Antwort ist ziemlich klar: Sie zerstören Ihr Objekt innerhalb der Schleife.

Diese Linie ist der offensichtlichste Grund für Ihre einmaligen Wunder:

Set newRpt = Nothing