当前位置: 代码迷 >> VFP >> 代码在VFP9运行时出现异常
  详细解决方案

代码在VFP9运行时出现异常

热度:9186   发布时间:2013-02-26 00:00:00.0
代码在VFP9运行时出现错误
clear
Local lcstr,lcma,lns,lastr(50)
lcstr="01 02 05 07 08 09 21 33 45 32 11 12 12 12 12 12 49 49 49 32 32 11 13 14 15 16 40 39 17 18 19 36 37 38 40 40 45 46 14 15 16 17 18 19 41 42 43 43 43 43"
store [] to lastr
For i=1 To 50
    lcma=Padl(i,2,'0')
    lns=Occurs(lcma,lcstr)
    lastr(lns+1) = lastr(lns+1) + lcma+' '
Endfor
?[统计结果:]
For i=1 To 10
    If !Empty(lastr(i))
        ?'{'+Padl(i-1,2)+'次}: '+[(]+lastr(i)+[码)]+Chr(13)
    Endif
Endfor


该段代码在多数人的VFP9中都能正常运行,运行到数组lastr时,就提示错误信息:文件lastr.PRG不存在。但在VFP6下运行正常,不知是何原因,请高手帮忙看下。以前运行正常。
VFP9版本:SP2 9.0.0.7423 汉化版
操作系统:WINXP service pack 3 版本:2002

------解决方案--------------------------------------------------------
VFP9版本:SP2 9.0.0.7423 英文原版
操作系统:WINXP 专业版 service pack 3 版本:2002
运行正常
  相关解决方案