代码在VFP9运行时出现错误

sdta2012 2013-01-25 11:13:24

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

...全文

101 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sdta2012 2013-01-26

打赏
举报

谢谢豆老师了

十豆三 2013-01-26

打赏
举报

运行3楼代码正常。可能是你汉化版 VFP9 的原因。不建议用汉化版，还是用英文原版吧。

sdta2012 2013-01-26

打赏
举报

引用 2 楼 apple_8180 的回复:

1、哪行的 lastr 报错？ 2、有没有变量重名的情况，你单独打开 VFP，新建一个空的 PRG，只运行这段代码试试。 3、另起一个变量名试试。 4、报错时，跟踪一下看看 lastr 的值。 5、再找不到原因，就不用数组，用个临时表(50行记录)代替。

凡是有数组的地方，都出错，这就是单独的代码，再无别的代码，下面这个自定义函数，有数组的行，同样出现相同的错误信息：

PARAMETERS dDATE
PUBLIC NWEEK(10)
NWEEK=0
FOR I=1 TO DAY(GOMONTH(dDATE-DAY(dDATE)+1,1)-1)
    FOR J=1 TO 7
        IF DOW(DATE(YEAR(dDATE),MONTH(dDATE),I),2)=J
           NWEEK(J)=NWEEK(J)+1
        ENDIF
    ENDFOR
ENDFOR
NWEEK(8)=dDATE-DAY(dDATE)+1          && 指定日期的期初日期
NWEEK(9)=GOMONTH(dDATE,1)-DAY(dDATE) && 指定日期的期末日期
NWEEK(10)=GOMONTH(dDATE,1)-dDATE     && 指定日期的当月天数
RETURN @NWEEK
*---------------------------------------------
*--- 函数功能：指定月份星期一至星期日各有几天
*--- 调用方法：ARY=程序名(指定日期)
*--- 返 回 值：为数组
*--- 说    明：ARY为数组
*              ARY(1)-星期一的天数
*              ARY(2)-星期二的天数，以此类推
*              DAY(GOMONTH(dDATE-DAY(dDATE)+1,1)-1)-指定日期的当月天数
*---------------------------------------------

十豆三 2013-01-26