问题：如何根据《课表》和《学生选课表》的“走班课程”，自动生成学生选课表中的“第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