'建立在学生排课明细
Dim r As DataRow = e.DataRow '当前选中的行
If r Is Nothing Then Return '如果表格没有数据
Dim d As Date = r("开始日期")
Dim d2 As Date = d.AddDays(r("总天数"))
Dim i As Integer = 1
Dim nr As Row
Do While d <= d2
If d.DayOfWeek = r("星期数字") Then
nr = Tables("学生排课档案").addnew()
nr("日期") = d
nr("星期") = r("星期")
nr("科目") = r("科目")
nr("学号") = r("学号")
nr("姓名") = r("姓名")
'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("排课明细编号")
i = 7
End If
d = d.AddDays(i)
Loop