zwh=1
kch=1
Scan
   if xcxm='A'
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
     ELSE xcxm='B'  
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
   ENDIF
Endscan

很不错啊

我想根据xcxm 一栏随机生成场次和座号，10人为一组（座号1-10），场次中的字母和xcxm中的一致。可是我的代码执行完如上图，不正确，请帮助修改。

我现在的代码执行结果没有去判断xcxm为A B C 等情况分别执行，肯定是循环不对，请指教

[ 本帖最后由 chychychy 于 2015-5-25 18:05 编辑 ]

你用了IF做分支，就只有A或B了

可按人数生成好一个“场次”和“座号”数据表（类似上面的代码过程），经过乱序处理（打乱顺序），按这个乱序的“场次”和“座号”数据表随便入座。

[ 本帖最后由 吹水佬 于 2015-5-25 21:49 编辑 ]

zwh=1
kch=1
Scan
   *if xcxm='A'
      Replace 座号 With zwh      
      Replace 场次 With allt(xcxm)+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
    *ELSE xcxm='B'  
     * Replace 座号 With zwh      
     * Replace 场次 With 'A'+Padl(kch,3,[0])   
      *zwh=zwh+1
       * If zwh>10
        *  zwh=1
         * kch=kch+1
          *Endif
   *ENDIF
Endscan

这只是按照顺序编排,不叫随机.

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

给个考生数据表好测试

给数据表增加一个字段存放随机数，使用命令REPL ALL RAND1 WITH RAND()*9999
然后把记录按随机数排序，程序其他命令不用修改。