补充：
    同志们先别说循环的问题，我自信循环这没出问题，最主要是的，我用了这个查询sele count(*) from 表 where yw>=80 group by bj into array rs以后，连编的时候提示“找不到未知的rs”,这怎么解决？？难道rs需要提前定义吗？是的话怎么定义？下图中的ZFrs等于我在这举的例子rs




我有一个程序，用了一个查询
sele count(*) from 表 where yw>=80 group by bj into array rs
[比如bj一共是6个]
引用时用的一个循环，比如
j=1
do whle j<=6
    repl all ywrs with rs(j) for bj=j        [已经打开了一个表，ywrs是此表的一个字段]
    j=j+1
enddo

连编的时候提示rs未定义

于是我在前面定义了dime rs(100),注：100足够大
又连编时提示下标超界，但是只有六个班，我定义的已经足够大了，为什么呢？

难道是因为into array rs中的rs只有rs(1)一个数值吗？如果是这样，我应该怎么解决？

最奇怪的是，我不用程序的形式，拷出这两个表，在命令窗口试，完成成功的
比如：sele count(*) from 表 where yw>=80 group by bj into array rs
repl ywmc with rs(1)
skip
repl ywmc with rs(2)
skip
repl ywmc with rs(3)
这样是完全有值的

[ 本帖最后由 wanming 于 2013-12-3 09:49 编辑 ]

不是，是有自增的，我忘记写了

同志们先别说循环的问题，我自信循环这没出问题，最主要是的，我用了这个查询sele count(*) from 表 where yw>=80 group by bj into array rs以后，连编的时候提示“找不到未知的rs”,这怎么解决？？难道rs需要提前定义吗？是的话怎么定义？

如果忽略就出现这个

程序e:\中学教师分析系统20131202\prog\js.prg包含下列错误:
    未知的 ZFRS - 未定义
    未知的 GKRS - 未定义

运行时会出现“下标超界”

因为这个查询用的是gruop by bj而且我表中的bj是1，2，3，4，5，6没有别的数值，按理说数组rs里面有6个值，我也在命令窗口试过，rs(1)至rs(6)都有值
至于循环，因为程序的需要，我求了max(bj),所以用的是for J=1 to max(bj),自信循环没有错是因为这个循环里有很多repl,只是不是数组里面的，如果我把rs()值去掉，循环完全正确

对不起，兄弟错怪你了，我用了alen(rs),发现返回的是5，我试了一下rs(0)却提示下标错误，这可能是VF与其他语言在SQL上的不兼容吧。我记得C或C++的下标都是从0开始的，VF却是从1开始的

alen()返回值是5，为什么rs(6)会有值呢？


彻底晕了，刚才试了下返回值是6啊，有点乱有点乱

[ 本帖最后由 wanming 于 2013-12-3 10:15 编辑 ]

可是rs(1)至rs(6)都有值，而且是正确的
在VF6.0中用SELECT-SQL语句INTO ARRAY，连编的时候提示找不到数组名，怎么解决？

[ 本帖最后由 wanming 于 2013-12-3 10:28 编辑 ]

你说的很有道理
现在我换了一种方法，问题是解决了，但没用数组，我的疑问也没有解开