主题：课程分配问题

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.CommandText="select * from {课程设置信息} a inner join (select distinct 学校,专业 from {学生基本信息}) as b on a.学校=b.学校"

dt=cmd.ExecuteReader

For Each dr As DataRow In dt.DataRows

    Dim drlist As List(of DataRow) = DataTables("学生基本信息").Select("学校='" & dr("a.学校") & "' and 专业='" & dr("a.专业") & "'")

    If drlist.count>0 Then

        For Each drr As DataRow In drlist

            Dim dra As DataRow = DataTables("考试成绩信息").AddNew

            dra("入学时间")=drr("入学时间")

            dra("学号")=drr("学号")

            dra("姓名")=drr("姓名")

            dra("学校")=drr("学校")

            dra("专业")=drr("专业")

            dra("课程")=dr("课程")

        Next

    End If

Next