Question

此代码块导致运行时错误91或块未设置错误此代码用于在vb6中的水晶报告中打开报告

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

1 个答案: