在主表中操作 新建主表(排课登记表)数据和关联表数据, 关联表(排课明细)里有表事件程序.程序添加在 关联表(排课明细)的 BeforeSaveDataRow事件里面
代码如下
Dim r As Row = Tables("排课明细").current '当前选中的行
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
Dim kc As Row
Do While d <= d2
If d.DayOfWeek = r("星期数字") Then
nr = Tables("学生排课档案").addnew()
kc = Tables("课程档案DAY").addnew()
kc("课程档案编号") = D + r("课时段")
kc("日期") = d
kc("星期") = r("星期")
nr("日期") = d
nr("星期") = r("星期")
nr("科目") = r("科目")
nr("学号") = r("学号")
nr("姓名") = r("姓名")
'nr("性别") = r("性别")
nr("排课编号") = r("排课编号")
nr("课时段") = r("课时段")
nr("课程档案编号") = D + r("课时段")
i = 7
End If
d = d.AddDays(i)
Loop
在主表 点击保存的时候,关联表事件,只执行,第一个主表的关联表的第一条添加的数据.
后面添加的主表数据,或者关联表数据.在执行时,也是重复多次执行 第一个主表的关联表的第一行数据.
单独在 排课明细表 做保存操作没有问题.
[此贴子已经被作者于2020/10/21 21:21:48编辑过]
加好友 
发短信
Post By：2020/10/21 21:16:00 [只看该作者]
