9.0难到不能操做6.0

与编程有关，与版本无关。

实在不知所云，只是贴出和你输出结果一致的代码。

*你要的是这样的输出，但不知道你的字段的具体情况
*你没表述清楚，也不知道怎样录入
*你可以自行修改，从字串中截取
Local nrow,cnum1,cnum2
nrow=9
Store "" To cnum1,cnum2
For a=1 To 9
    For b=a To nrow
        cnum1=cnum1+Alltrim(Str(Iif(Mod(b,9)=0,9,Mod(b,9))))
        cnum2=Alltrim(Str(Iif(Mod(b,9)=0,9,Mod(b,9))))+cnum2
    Endfor
    ?cnum1
    ??",",cnum2
    Store "" To cnum1,cnum2
    nrow=nrow+1
Endfor

是一条记录中的一个字段？每次只填入一个数字？一共要填18*9条记录？还是每条记录就填18个数字只填9条记录？
你老实交代？！你让VFP的亲们着狂。
要让我们猜你的心思，好难。（才过完七夕呢），又怕楼主不是公主只是公猪，那猜来就没意思了。
楼主，你就从了我们吧！！
啊？！

这凭的描述好难理解的，把数据传上来，帮你解决才有思路

我看跟版本无关,不是6.0或者9.0的问题，而是表述方面的问题，楼主这样的表述，让所有的人都抓狂，到底要达到一种什么样的目的呢？！

难怪我们国家的计算机教育始终上不去。Foxpro都已经被驱逐出微软的视野了，我们还有学校竟然用的不是终极版本。不过，我同意12、16楼的话，这与编程思路有关，与版本无关。这道题目如果知道在干什么的话，可以用FoxPro 2.5编写出来。


[ 本帖最后由 taifu945 于 2013-8-19 15:56 编辑 ]

难道楼主不会变通吗，郁闷！

CLOSE TABLES
USE fb分班632人
IF FSIZE([fb])=0
alter table fb分班632人 add fb n(2)
endi
SELECT bb FROM fb分班632人 WHERE bb>0 INTO CURSOR a1

FOR i=1 TO RECCOUNT()
GO top
scan
REPLACE a.fb WITH a1.bb
SELECT fb分班632人
IF !EOF()
SKIP
ELSE
MESSAGEBOX([分班结束])
retu
endi
ends
endf