主题：我想让FOXTABLE把人数自动合成20人为一个考场，有什么方法没？

我想让FOXTABLE把人数自动合成20人为一个考场，有什么方法没？

 

例如在6月3日，08：00开始的这一段，考不同课程人数有8人，7人，3人，5人，2人，11人

 

FOXTABLE可以自动的把8人，7人，3人，2人编为一个考场，在教室中自动写入教室301，

 

而5人，11人编到另外一个考场，在教室中自动写入教室301

 

当然这只举出了同一时间段的两个考场。还可能会出现三个考场，不知哪位高手可以提供一下思路或代码？

 

 

此主题相关图片如下：qq截图20150531212138.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:排考室应用篇.zip

 

 

就用程总的这个例子

 

把下图中考室我要用系统自动安排，以20人为一个单位进行考室安排，同一日期同一起始时间，先如果达到20用201教室，然后再考察剩下的，如果剩下的又达到20用301，至到最后一个或两个不能达到20人，放在401，和501

 

 

此主题相关图片如下：1.jpg

Dim pcount As Integer = 20
vars("aidx") = 201
Dim dt As DataTable = DataTables("ksap")
dt.StopRedraw
Dim rqsjs As List(Of String()) = dt.GetValues("rq|sj")
For Each rqsj() As String In rqsjs
    Dim filter As String = "rq = #" & rqsj(0) & "# and sj = '" & rqsj(1) & "'"
    Dim drs As List(Of DataRow) = dt.Select(filter, "rs desc")
    Dim Ispick As new List(of Integer)
    Dim b(drs.Count-1) As Integer
    For i As Integer = 1 To drs.Count
        If i <= drs.Count - IsPick.Count Then
            'output.show(i & " " & drs.Count & " " & IsPick.count)
            Functions.Execute("组合排列", drs, b.length, i, b, i, pcount, IsPick)
        End If
    Next
Next
dt.ResumeRedraw
msgbox("操作完毕")

大红袍老师：能不能帮我注释一下上面第一句是什么意思啊？

 

还有一问题，执行完后有的考试是空的，怎么解决？

 

 

 

此主题相关图片如下：qq截图20150615205317.png

 

他的这个教室是怎样命名的？