\'建立课程档案 避免重复

Dim rr As DataRow = e.DataRow \'当前选中的行

If rr Is Nothing Then Return \'如果表格没有数据

Dim dd As Date = rr("开始日期")

Dim dd2 As Date = dd.AddDays(rr("总天数"))

Dim ii As Integer = 1

Dim kc As Row

Do While dd <= dd2

    Dim wr As DataRow = DataTables("课程档案DAY").Find("日期 = #" & dd & "# ")

    If wr IsNot Nothing Then

        Continue Do

    Else If dd.DayOfWeek = rr("星期数字") Then

        kc = Tables("课程档案DAY").addnew()

        kc("课程档案编号") = dd + rr("校区")+ rr("分类")+ rr("科目")+ rr("课程")+ rr("课时段")

        kc("日期") = dd

        kc("星期") = rr("星期")

        ii = 7

    End If

    dd = dd.AddDays(ii)

Loop

第一个 if 是判断重复的语句,如果去掉,正常生成课程档案正常,加上判断重复,程序会司机.