ActiveReport 弹出错误Error in processing report. [ External Info: CP internal=100]

Question

打开 ActiveRport 时弹出错误信息：
Error 5000 : Error in processing report.
 [ Extended Info: CP internal=100]究竟是什么原因？

Answer 1

以前用AR,现在用CR，没有遇到过这个情况，实在不行，重新装一下就好了。

Answer 2

郁闷！重装了 ActiveReport 都不行。发现去掉 OnFetchData(eof) 这个过程就可以。但加上去跟踪代码运行时第一次是可以运行的，循环第二次就不行了。代码如下： '将数据填充明细行
if not vbo.ATRobjRst.eof then
rpt.sections("Detail").controls("txtWareName").text= vbo.ATRobjRst.fields("GoodsName") & "" rpt.sections("Detail").controls("txtSalSum").text=vbo.ATRobjRst.fields("NotSendNum") & ""
rpt.sections("Detail").controls("txtprice").text=vbo.format(vbo.ATRobjRst.fields("Price") & "","#,###.00") rpt.sections("Detail").controls("txttotal").text=vbo.format(vbo.ATRobjRst.fields("Total") & "","#,###.00")
rpt.sections("Detail").controls("Field6").text=vbo.ATRobjRst.fields("UnitName") & ""
rpt.sections("Detail").controls("Field7").text=vbo.ATRobjRst.fields("Num01") & ""
rpt.sections("Detail").controls("Field8").text=vbo.ATRobjRst.fields("Num02") & ""
rpt.sections("Detail").controls("Field9").text=vbo.ATRobjRst.fields("Num03") & ""
rpt.sections("Detail").controls("Field10").text=vbo.ATRobjRst.fields("Num04") & ""
rpt.sections("Detail").controls("Field11").text=vbo.ATRobjRst.fields("Num05") & ""
rpt.sections("Detail").controls("Field12").text=vbo.ATRobjRst.fields("Num06") & ""
rpt.sections("Detail").controls("Field13").text=vbo.ATRobjRst.fields("Num07") & ""
rpt.sections("Detail").controls("Field14").text=vbo.ATRobjRst.fields("Num08") & ""
rpt.sections("Detail").controls("Field15").text=vbo.ATRobjRst.fields("Num09") & ""
rpt.sections("Detail").controls("Field16").text=vbo.ATRobjRst.fields("Num10") & ""
rpt.sections("Detail").controls("Field17").text=vbo.ATRobjRst.fields("Num11") & ""
rpt.sections("Detail").controls("Field18").text=vbo.ATRobjRst.fields("Num12") & ""
rpt.sections("Detail").controls("Field19").text=vbo.ATRobjRst.fields("Num13") & ""
rpt.sections("Detail").controls("Field20").text=vbo.ATRobjRst.fields("Num14") & ""
rpt.sections("Detail").controls("Field21").text=vbo.ATRobjRst.fields("Num15") & ""
rpt.sections("Detail").controls("Field22").text=vbo.ATRobjRst.fields("Num16") & ""
vbo.ATRobjRst.movenext else
rpt.sections("Detail").controls("txtWareName").text="" rpt.sections("Detail").controls("txtSalSum").text=""
rpt.sections("Detail").controls("txtPrice").text=""
rpt.sections("Detail").controls("txtTotal").text=""
rpt.sections("Detail").controls("Field6").text=""
rpt.sections("Detail").controls("Field7").text= ""
rpt.sections("Detail").controls("Field8").text= ""
rpt.sections("Detail").controls("Field9").text= ""
rpt.sections("Detail").controls("Field10").text= ""
rpt.sections("Detail").controls("Field11").text= ""
rpt.sections("Detail").controls("Field12").text= ""
rpt.sections("Detail").controls("Field13").text= ""
rpt.sections("Detail").controls("Field14").text= ""
rpt.sections("Detail").controls("Field15").text= ""
rpt.sections("Detail").controls("Field16").text= ""
rpt.sections("Detail").controls("Field17").text= ""
rpt.sections("Detail").controls("Field18").text= ""
rpt.sections("Detail").controls("Field19").text= ""
rpt.sections("Detail").controls("Field20").text= ""
rpt.sections("Detail").controls("Field21").text= ""
rpt.sections("Detail").controls("Field22").text= "" end if
    
    rpt.sections("Detail").newpage = 0
    eof = false '计数器
iRow = iRow + 1

'分页设置:
'以下示例显示每页12行
if iRow mod 10 = 0 and iRow > 0 then
if Recordcount > iRow then
rpt.sections("Detail").newpage = ddNPAfter
eof = false
else
eof = true
end if
else
eof = false
end if