主题：代码冲突,求帮助

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