\'建立课程档案 避免重复

Dim rr As DataRow = e.DataRow \'当前选中的行

If rr Is Nothing Then Return \'如果表格没有数据

Dim dd As Date = rr("调上课日期") \'确定开始日期

Dim kc As Row \'定义行

If dd.DayOfWeek = rr("调星期数字") Then

    Dim bh As String = dd + rr("调校区")+ rr("调分类")+ rr("调科目")+ rr("调课程")+ rr("调课时段")

    Dim wr As DataRow = DataTables("课程档案DAY").Find("课程档案编号 = \'" & bh & "\'") \'查找相同的编号

    If wr Is Nothing Then \'如果没有找到

        kc = Tables("课程档案DAY").addnew()

        kc("课程档案编号") = bh

        kc("日期") = dd

        kc("星期") = rr("调星期")

        kc("分类") = rr("调分类")

        kc("科目") = rr("调科目")

        kc("课程") = rr("调课程")

        kc("上课时间") = rr("调上课时间")

        kc("下课时间") = rr("调下课时间")

        kc("教师工号") = rr("调教师工号")

        kc("教师姓名") = rr("调教师姓名")

        kc("校区") = rr("调校区")

        kc("下课确认") = "未开课"

    End If

End If

\'建立在学生排课明细,锁定后不能建立课程档案

Dim r As DataRow = e.DataRow \'当前选中的行

If r Is Nothing Then Return \'如果表格没有数据

DataTables("学生排课档案").DeleteFor("[调课单编号] = \'" & e.DataRow("调课单编号") & "\'")

Dim d As Date = r("调上课日期")

\'Dim d2 As Date = d.AddDays(r("总天数"))

\'Dim i As Integer = 1

Dim nr As Row

If d.DayOfWeek = r("调星期数字") Then

    nr = Tables("学生排课档案").addnew()

    nr("日期") = d

    nr("星期") = r("调星期")

    nr("科目") = r("调科目")

    nr("学号") = r("调课人学号")

    nr("姓名") = r("调课人姓名")

    nr("签到状态") = "未开课"

    \'nr("性别") = r("性别")

    nr("排课编号") = r("排课编号")

    nr("课时段") = r("调课时段")

    nr("课程档案编号") = D + r("调校区")+ r("调分类")+ r("调科目")+ r("调课程")+ r("调课时段")

    nr("校区") = r("调校区")

    nr("分类") = r("调分类")

    nr("课程") = r("调课程")

    nr("时段") = r("调课时段")

    nr("教师工号") = r("调教师工号")

    nr("教师姓名") = r("调教师姓名")

    nr("上课时间") = r("调上课时间")

    nr("下课时间") = r("调下课时间")

    \'nr("排课明细编号") = r("排课明细编号")

    nr("调课单编号") = r("调课单编号")

    nr("缴费编号") = r("缴费编号")

    Tables("学生排课档案").Current.Save()

End If