我想先将cyk表按53、54、55、56、57、58、59、60、63、64、65、70、71、72、73、74、75、76、77、78、79、80、81、82、83、84、85、86、87、88、89大类分再出来，
每类再按1、2、3、4、5层分字段为FC
抽样也同上cy.dbf
无效同上 wx.dbf
重点同上zd.dbf
有效同上 yx.dbf
分好后再判断，例如cy里53第一层的个数》=(cyk-cy)里53第一层的个数+5.若大于，则按RADOM从小到大排序取前wx53第一层个数，并在BZ字段里标注1，若小于，则停止，想请问这个循环该怎么写，谢谢















[ 本帖最后由 qiaolinxj 于 2013-11-25 14:39 编辑 ]

上传数据表
说明循环的详细方法

[ 本帖最后由 sdta 于 2013-11-25 13:32 编辑 ]

数据表太大了，有一百多兆，类按照HYDL字段来取得，层按照FC字段来取得
循环方法是 抽样框里每一个类每一层的个数必须大于样本框里同一类同一层个数+5，如果大于，则抽样框此层按照RADOM排序取WX样本同层的个数并在BZ2字段加以标记

路过

....

[ 本帖最后由 bccn0906 于 2013-11-28 15:29 编辑 ]

我发DBF说不行，必须压缩，截图也发不出来

[ 本帖最后由 qiaolinxj 于 2013-11-25 14:41 编辑 ]

表

少部分 几十个记录可以的

写了这个循环语句，结果是出来了，但是不知道怎么能在CY1里标记
sele 1
use cy1.dbf
sele 2
use yb.dbf
sele 3
use wx.dbf
SELECT 4
USE cy2.dbf
SELECT 4
DELETE ALL
PACK

for i=53 to 89
    for m=1 to 5
        sele 2
        sele * from yb where hydl=i and fc=m into dbf ls1
        SELECT ls1
        n=RECCOUNT()
        k=n+5
        SELECT 1
        SELECT * FROM cy1 WHERE hydl=i AND fc=m INTO dbf ls2
        SELECT ls2
        s=RECCOUNT()
        IF k<=s
            SELECT 3
            SELECT * FROM wx WHERE hydl=i AND fc=m INTO dbf ls3
            SELECT ls3
            x=RECCOUNT()
            IF x<>0
                SELECT top x * FROM cy1 ORDER BY random WHERE hydl=i AND fc=m INTO dbf ls4
                SELECT 4
                APPEND FROM ls4
                SELECT ls4
                USE
                DELETE FILE ls4.dbf
            ENDIF  

            SELECT ls3
            USE
            DELETE FILE ls3.dbf
            
        ENDIF
        SELECT ls1
        USE
        DELETE FILE ls1.dbf
        SELECT ls2
        USE
        DELETE FILE ls2.dbf
        
    ENDFOR
ENDFOR
 CLOSE ALL

....

[ 本帖最后由 bccn0906 于 2013-11-28 15:29 编辑 ]