求助多条件限制自动分班

wzl8007

一组 二组是如何划分出来的？

wzl8007

感觉应该不难，在其中一个表里将其他3个表的成绩数据引入，然后按照比例计算出总成绩，select top 50 人名 from 表 where 成绩 between 最大值 and 最大值-1 order by  （随机数）意思是从表里随机选出与最高成绩不差1分的的50人 其他类似！只是个思路！

wzl8007

Dim aa As Integer
aa = Round(DSum("成绩合成", "汇总成绩查询") / 125)
Dim Conn1 As New ADODB.Connection
    Dim Rs_Date As New ADODB.Recordset
    Set Conn1 = CurrentProject.Connection
    Dim Arr_Date()
    Dim sql As String
    Dim rstCount As Integer
   Do While True
    CurrentDb.CreateQueryDef "文班1班", "SELECT TOP 62 文科慢班.ID, Sum(文科慢班.成绩合成) AS 成绩合成之合计 FROM 文科慢班 GROUP BY 文科慢班.ID ORDER BY Rnd(-(ID+Rnd()))"
        sql = "SELECT round(Sum(文班1班.成绩合成之合计)) AS 班级成绩总和 FROM 文班1班"
Rs_Date.Open sql, Conn1, 3, 3
Debug.Print Round(Rs_Date(0) / 62)
    If Abs(Round(Rs_Date(0) / 62) - aa) < 1 Then
    GoTo line
    End If
    DoCmd.DeleteObject acQuery, "文班1班"
    Rs_Date.Close
    Set Rs_Date = Nothing
    Loop
line:
MsgBox "文班慢班1完成！其余为慢班2班"
试验了一下，应该可以实现，我用的是access