1、这个程序还是按32个场，32组监考老师，进行测试。
我把前面schtg、wengjl两位老师的代码综合了一下，初步实现了分科目逐个进行抽签。

2、但是在抽签过程中，发现了有重复监考一个考场的情况，如下图：
画红框的这一组老师，语文监考的是第2场，到了英语时，又监考第2场。这是考试工作不允许的。
如何在按钮中增加命令，进行判断，避免这种情况的发生。


附程序：

[此贴子已经被作者于2019-7-25 16:11编辑过]

按每条记录不重复抽4组，8条记录就刚好32组，为一块。
继续下一块，这样就不会有在考场重复的抽签组。

不知道怎么用代码来实现。

看看这样可否：

USE jkfzmd IN 0    && zh, jka, jkb
USE jkap IN 0    && 考场号，语文，数学，综合，英语
SELECT jka-"、"-jkb as jkab FROM jkfzmd INTO CURSOR tmp
DIMENSION arr[32,1]
i = 1
抽签()
SELECT jkap
SCAN
    REPLACE 语文 WITH arr[i,1], 数学 WITH arr[i,2], 综合 WITH arr[i,3], 英语 WITH arr[i,4]
    i = i + 1
    IF (i > 8)
        i = 1
        抽签()
    ENDIF
ENDSCAN
GO TOP
BROWSE
RETURN

FUNCTION 抽签()
    DIMENSION arr[32,1]
    SELECT tmp
    INDEX on RAND() TAG tag_rand
    COPY TO ARRAY arr FIELDS jkab  
    SET ORDER TO
    DIMENSION arr[8,4]
ENDFUNC

[此贴子已经被作者于2019-7-26 15:27编辑过]

只考虑行不重复，没考虑到列不重复。

如果不是4的倍数，是33个试场呢？

动态的话，原理应该是一样。将一些常数换成变量，逐条记录加个字段循环处理。

说明：
1全随机编排。
2用临时表编排，只保存了考场的监考教师，监考教师每科监考的场次保存未做，需要可以自已增加。
3每个按键的Caption必须与 jkap中的字段名一致
4可锁定部分安排。
后期
1可按Caption构造jakp，适应科目变化
2可从Excel中读入监考教师。

[此贴子已经被作者于2019-7-26 21:50编辑过]

谢谢指点，下载下来，研究学习。

谢谢老师热心指点，我把代码保存下来一点点学习。