为什么这段代码会产生运行时错误 91

Question

此代码块导致运行时错误 91 或块未设置错误此代码用于在 vb6

中的 crystal 报告中打开报告

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

当用于 1 次打开报告时它运行良好，但当它以这种方式在循环中使用时会导致错误。

Answer 1

答案很明确：您在循环中销毁了您的对象。

这一行是您曾经好奇的明显原因：

 Set newRpt = Nothing

为什么这段代码会产生运行时错误 91

Why is this block of code producing runtime error 91

vb6

runtime

crystal-reports