'建立课程档案 避免重复
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 & "# + '" & rr("校区") & "' + '" & rr("分类") & "' + '" & rr("科目") & "' + '" & rr("课程") & "' + '" & rr("课时段") & "'")
If wr Is 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
上面的代码运行的时候 程序死机了,重新打开后,执行的结果也不对
'判断当日课程是否重复
Do While dd <= dd2
Dim wr As DataRow = DataTables("课程档案DAY").Find("课程档案编号 = #" & dd & "# + '" & rr("校区") & "' + '" & rr("分类") & "' + '" & rr("科目") & "' + '" & rr("课程") & "' + '" & rr("课时段") & "'")
If wr Is Nothing Then
Continue Do
这个代码是判断是否重复的代码.请指教