主题：[求助]自动生成课表

问题：如何根据《课表》和《学生选课表》的“走班课程”，自动生成学生选课表中的“第5节”“ 第6节”“ 第7节”“ 第8节”“ 第9节”数据（即自动生学生课表，填写科目即可）？   谢谢

  

说明：1、“走班课程”列，每位学生都进行了6选3的结果（即物理、化学、生物、政治、历史、地理），同时对科目进行分层（如物理分为四层：物A、物B、物C、物E;政治分为政治、政E两层）。

2、《课表》中第5节：若某学生选了其中1节就不能选第5节其他课程，因为一个人不可能分身在同一时间去上两个班的课。

3、《课表》中巫礼1老师两节物A课，需将选择物A的学生分成两组，第一组第5节上课，第二组第8节上课；又如李四2老师有3节课，需将选课学生分成三组，第一组第5节上课，第二组第7节上课，第三组第8节上课，其他老师依次类推。各组的人数不可能一致，尽量一致吧。

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

点击浏览该文件:学生课表生成.table

参考代码，生成对应的选择给学生，学生根据情况去上课。

 

不然，你要说明分配的逻辑，因为有多种可能符合，你要选择哪种？

 

Dim t1 As Table = Tables("学生选课表")
Dim t2 As DataTable = DataTables("课表")
'Dim dr As Row = t1.Current
For Each dr As Row In t1.Rows
    For i As Integer = 5 To 9
        dr("第" & i & "节") = Nothing
    Next
    For Each kc As String In dr("走班课程").split("|")
        If kc.EndsWith("E") = False Then
            For Each fdr As DataRow In t2.Select("科目='" & kc & "'")
                If fdr IsNot Nothing Then
                    For i As Integer = 5 To 9
                        If fdr.IsNull("第" & i & "节") = False Then
                            Dim str = dr("第" & i & "节")
                            str &= "," & fdr("第" & i & "节") '& "(" & fdr("教师") & ")"
                            dr("第" & i & "节")= str.trim(",")
                        End If
                    Next
                End If
            Next
        End If
    Next
Next

谢谢老师

1、“走班课程”列，每位学生都进行了6选3的结果（即物理、化学、生物、政治、历史、地理），同时对科目进行分层（如物理分为四层：物A、物B、物C、物E;政治分为政治、政E两层）。

“走班课程”是学生选课结果，前三项是学生选择今后参加高考科目，后三科带“E"的是毕业考试科目----即领毕业证需参考科目。

6选3有20个组合，如“物政生”、“政史地”、“物化生”、。。。。。，这些是高考考试科目；同时还必须参加毕业考试----即未选科目，如某生选了“政历地”，则物理、化学、生物三科必须参加结业考试。分教学班时，需统计出选“物理”“化学”生物“”政治“”历史“”地理“物E"化E"生E"地E”政E“历E"各科学生人数，然后根据这个人数进行分班，如选物理有131人，则可分2个班；化学300人，则可分6个班。

例物A科130人，大家听1节课，由于教室容量的原因巫礼1老师只能分2次完成，若第5节有68人听课，则剩余的62人则下堂听课，这2组学生听完课，大家才算听完1节课。

试试

谢谢有点蓝老师！也再次谢谢有点甜老师！

遇到一个问题：移动课表课程位置，点击按纽，出现错误提示“已添加了具有相同键的项”