上一贴，一次要求实现的目标太大了，我把老师的代码看了看，好多地方不太懂，这次把动作分解一下。
如果有哪位老师指点的时候，如果能带上备注，那就万分感谢了。
这次只实现一步：如何把输入的考场号依次写到表cqjg(抽签结果)的考场号字段中？
（这个考点是从1到32场，有的考点是从33-126场，有的是从127-266场，不一定是从1开始）

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

这样可否：考场号与抽签名分片处理，对于某一片区先将抽签名乱序，再将考场号顺序分配给抽签名，以达到随机抽签的效果。
示例：只考虑一个片区

****** test.prg ******
CREATE CURSOR tt (考场号 I, 抽签名 C(10))
FOR i=1 TO 10
    INSERT INTO tt (抽签名) VALUES ("抽签名"+TRANSFORM(i))
ENDFOR
GO TOP
of = CREATEOBJECT('Form1')
of.show(1)
RETURN

DEFINE CLASS form1 as form
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,height=22,caption="抽签"
    ADD OBJECT grid1 as grid WITH top=50,left=10,RecordSourceType=1,RecordSource="tt"
    PROCEDURE cmd1.click
        INDEX on RAND() TAG 抽签
        n = 1
        SCAN         
            REPLACE 考场号 WITH n
            n = n + 1
        ENDSCAN
        INDEX on 考场号 TAG 考场
        GO TOP IN "tt"
        thisform.grid1.setfocus
    ENDPROC
ENDDEFINE

是这个意思吗？符合要求吗？

这个抽签软件使用的方法:
1、这个程序是分考点使用的，各个考点之间只对本考点的考场进行抽签。与其他考点没有联系。
2、我们提前把某一个考点的监考分组名单准备好，和程序一块儿发到学校。
3、到抽签的时候，由一个主监考教师代表，用鼠标点一下这个科目的按钮完成抽签，然后打印出抽签的结果表，让主监考们签上字。
难点是让这个程序抽签的时候，同一组监考人员，不能监考曾经监过的考场。

厉害，这第一步就是要达到这个目标，目标已经实现

[此贴子已经被作者于2019-7-24 13:42编辑过]

谢谢老师指点，感觉您一下完成了两步。

我把代码保存一下，我慢慢研究学习。