不同表之间数据修改问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在排课明细表 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

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

主题：不同表之间数据修改问题