BeforeAddDataRow
if vars("add") = false
Dim dr As Row = Tables("课程档案DAY").current
If dr isnot nothing Then '判断主表状态
e.Cancel = True '那么取消输入并提示用户
Messagebox.Show("已经下课了,不能进行操作了,如需造作需要经理授权!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
end if
BeforeSaveDataRow
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
vars("add") = true
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("下课时间")
i = 7
End If
d = d.AddDays(i)
Loop
vars("add") = false