不用循环能解决吗 - VFP论坛

PRIVATE m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,; m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,; m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,; m31,m32,m33,m34,m35,m36,m37,m38,m39,m40,; m41,m42,m43,m44,m45,m46,m47,m48,m49,m50,; m51,m52,m53,m54,m55,m56,m57,m58,m59,m60 FOR i=1 TO 60 _vfp.SetVar("m"+TRANSFORM(i),0) ENDFOR fun() fun1() printvar(1,30) printvar(31,60) RETURN FUNCTION fun() FOR i=1 TO 30 EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i)) ENDFOR ENDFUNC FUNCTION fun1() FOR i=31 TO 60 EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i)) ENDFOR ENDFUNC FUNCTION printvar(n,m) FOR i=n TO m ? "m"+TRANSFORM(i), EVALUATE("m"+TRANSFORM(i)) ENDFOR WAIT ENDFUNC

第 32 楼

得分:0

以下是引用吹水佬在2020-9-26 09:31:31的发言：

应该不是变量数目的问题
检查一下变量使用有无冲突，如25楼提到的变量kdxtj就有冲突。
随便定义60个变量测试：
PRIVATE m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,;
    m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,;
    m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,;
    m31,m32,m33,m34,m35,m36,m37,m38,m39,m40,;
    m41,m42,m43,m44,m45,m46,m47,m48,m49,m50,;
    m51,m52,m53,m54,m55,m56,m57,m58,m59,m60
FOR i=1 TO 60
    _vfp.SetVar("m"+TRANSFORM(i),0)
ENDFOR
fun()
fun1()
printvar(1,30)
printvar(31,60)
RETURN

FUNCTION fun()
    FOR i=1 TO 30
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC

FUNCTION fun1()
    FOR i=31 TO 60
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC

FUNCTION printvar(n,m)
    FOR i=n TO m
        ? "m"+TRANSFORM(i), EVALUATE("m"+TRANSFORM(i))
    ENDFOR
    WAIT
ENDFUNC

谢谢！是我粗心大意，就是25楼提到的重复初始化问题。