有思路了，在对接好里的表中删除甲、乙都是男的，剩上的随机筛选出7场

思想是有了，测试没通过

甲组中有10位男的，乙组中有14位男的，所以男男组合 有 140 所以最后得的组合 是949


      ********************
      * 名称：甲乙监考教师搭配处理
      * 时间：2025-4-18
      * 来源：https://bbs.bc-cn.net/thread-514275-1-1.html
      ********************
      CLEAR
      CLEAR ALL
      SET SAFETY off
      SET engi 70      
      CLOSE DATABASES
      SELECT * from jkjmd wher 1=3 into cursor lstem readw
      SELECT lstem
      FOR i=1 to 33
        APPEND FROM jkjmd
      ENDFOR
      SELECT * from lstem orde by jxm into array ls
      SELECT 0
      USE ppjg alia bmk
      ZAP
      APPEND FROM array ls
      CLOSE DATABASES  
      SELECT 0
      USE ppjg alia bmk
      SELECT 0
      USE jkymd alia kg
      SELECT bmk
      DO while not EOF()
          xmj=bmk.jxm
          xbj=bmk.jxb
          nRen=RECNO()
          SELECT * ,0.0000000 as nn from kg into cursor tmp readw
          SELECT tmp
          REPLACE nn with RAND() all
          SELECT * from tmp orde by nn into cursor ls
          SELECT bmk
          GO top
          jls=1
          SCAN for bmk.jxm=xmj
            SELECT ls
            GO jls
            REPLACE bmk.yxm with ls.yxm,bmk.yxb with ls.yxb
            SELECT bmk
            jls=jls+1
          ENDSCAN
          SELECT bmk
          GO nRen+32
          SKIP 1
      ENDDO
      SELECT bmk
      DELETE FOR jxb=[男] and yxb=[男]
      PACK
      CLOSE DATABASES
      QUIT

只做了搭配部分。
监考落到试场中的部分，尚未完全理解...

继续努力，加油...等你好消息！

结果字段命名为什么是JXM2,YXM1(甲姓名2，乙姓名1？)，有什么特殊含义吗？这样写代码很容易乱啊，可以成xm1，xm2,或 xmJ,xmY吗？要不是我理解错了，XM是考试项目？最后结果是Ksapb吧，可以用其它结构吗？

[此贴子已经被作者于2025-4-18 12:19编辑过]

部分内容有实现......抛砖引玉

一个程序，3个表。监考教师表，考试课程表，监考安排表。考试课程门次不限，每门考场数可不限。 ，如有需要可以加一个判断男女人数的语句，男少禁止男男，女少禁止女女。

*!*    表及字段说明

*!*    jsmd-监考教师名单，XM-姓名，XB-性别，FZ-分组，1代表甲组-监考1，2代表乙-监考2 ; 如果不想让1组始终是主监考，可以在排好后，同组对调一下。
*!*    jkap-安排表，课程名称（也可以考试场次），姓名、性别
*!*    kskc-考试课程，kcmc 课程名称，kcs 考场数，wp1,wp2 未安排场次
Close Tables All
Use jsmd
Use jkap In 0
Zap In jkap
Use kskc In 0
Replace  wp1 With 0,wp2 With 0 All In kskc
ikskc=Reccount('kskc')
Count For fz='1' To rs1
Count For fz='2' To rs2
If rs1<>rs2 Then
    yorn=Messagebox('两组监考人数不相等,1组'+Alltrim(Str(rs1))+'人，2组'+Alltrim(Str(rs2))+'人。'+Chr(13)+'是否继续？',4+32+256,"提示")
    If yorn<>6 Then
        Return
    Else
        irs=rs1  && ?max(rs1,rs2) ?min(rs1,rs2)均可
    Endif
Endi
Select jkap
For i=1 To ikskc
    Go i In kskc
    _kcmc=Alltrim(kskc.kcmc)
    _kcs=kskc.kcs
    For j=1 To _kcs
        Insert Into jkap  (kcmc ) Values (_kcmc)
        Replace xlh With Rand() In jsmd All
        Select Top 1 xm,xb From jsmd Order By xlh Desc Where fz='1' And Not( xm In (Select xm1 From jkap Where Alltrim(kcmc)==_kcmc) )Into Curs tmp
        If Reccount('tmp')=0
            Replace xm1 With "NO" In jkap
            Replace wp1 With wp1+1 In kskc
**            loop
        Else
            _js1=Alltrim(tmp.xm)
            _xbn=(Alltrim(tmp.xb)='男')
            Replace xb1 With tmp.xb,xm1 With _js1 In jkap
        Endif
**下面第二个老师
        Select Top 1 xm,xb From jsmd Order By xb,xlh  Where  fz='2' And !(xm In (Select xm2 From jkap Where Alltrim(kcmc)==_kcmc))  And !(xm In (Select xm2 From jkap  Where Alltrim(xm1)==_js1))  AND !(xb='男' AND _xbn) Into Curs tmp
        
*  _xbn[color=#808080]=(ALLTRIM(tmp.xb)='男'),(xb='女')=_xbn 性别不能相同[/color]
*_xbn=(ALLTRIM(tmp.xb)='男'),!((xb='男')and_xbn) 性别不能同为男
        If Reccount('tmp')=0
            Replace xm2 With "NO" In jkap
            Replace wp2 With wp2+1 In kskc

**            loop
        Else
            Replace xm2 With tmp.xm,xb2 With tmp.xb In jkap
        Endif

    Endfor

Endfor

很好，学习啦！

如果你把表单发上来，用事件代码处理就方便多了。比如，预先指定部分监考、同科不监考、同科不同场、某人不监考某场……。不发表单上来很难处理。

先留个脚印，学习了