我已经按随机排序了，只不过要求测试相同项目（A\B\C\D\E\F)要挨着

我想达到这样的效果，选测项目（xcxm）为A的每10人一组（座号），场次根据测试人数有A001，A002等，选测项目为B\C\D\E\F等的依次类推。

[ 本帖最后由 chychychy 于 2015-5-26 21:39 编辑 ]

那应该怎样A条件执行B条件C条件D条件E条件F条件等等去执行呢？

这几天每晚在钻研fdxxhjc所发的《请教只将符合条件的写入到指定文件》这个题目。这个题目用我的方法做出来了，再来回答你的问题

zwh=1
kch=1
USE 中学
GO 1
cc_1=ALLTRIM(xcxm)
Scan
   IF ALLTRIM(cc_1)<>ALLTRIM(xcxm)
      cc_1=ALLTRIM(xcxm)
      zwh=1
      kch=1
   ENDIF   
   Replace 座号 With zwh      
   Replace 场次 With allt(cc_1)+Padl(kch,3,[0])   
   zwh=zwh+1
      If zwh>10
        zwh=1
        kch=kch+1
      ENDIF 
ENDSCAN
use

你的表中xcxm字段中的A/B/C/D是怎么排的?

[ 本帖最后由 muyubo 于 2015-5-26 22:25 编辑 ]

谢谢，你一个简单的if就解决了。我就是没想通应该如何循环判断执行，学习了。我先生成了一随机数，然后按照xcxm 和随机数排序得到的。 ALLTRIM(cc_1)<>ALLTRIM(xcxm)这句其什么作用？随机的过程也应该是全部放到程序里完成才对。我继续学习。

[ 本帖最后由 chychychy 于 2015-5-26 22:54 编辑 ]

zwh=1
kch=1
USE 中学
GO 1
cc_1=ALLTRIM(xcxm)                 &&设定变量cc_1取得字段xcxm的值
Scan
   IF ALLTRIM(cc_1)<>ALLTRIM(xcxm) &&如果字段xcxm有变化,如从"A"变成"B"
      cc_1=ALLTRIM(xcxm)           &&变量cc_1就等于变化后的值
      zwh=1                        &&座号从1开始
      kch=1                        &&场次从1开始
   ENDIF   
   Replace 座号 With zwh      
   Replace 场次 With allt(cc_1)+Padl(kch,3,[0])   
   zwh=zwh+1
      If zwh>10
        zwh=1
        kch=kch+1
      ENDIF 
ENDSCAN
use

不太明白你要的是什么结果？
从表看，由xcxm产生场次和座号，xm与场次和座号也建立了对应关系，看似已经完成编排，还有什么问题？

让别人看代码，首先要明白你的思路，才能找出存在的问题

17楼给你答案了。不过我想不通的事是，为什么要用字母A、B、C等呢!