For Each dr1 As Row In dt.Rows
Dim Filter As String = ""
If dr1.IsNull("身份证件号") Then
filter = "身份证号 is Null and 姓名 = '" & dr1("学生姓名") & "' and 级='" & dr1("班级") & "' and 考试名称='" & c7 & "' and 学校名称 = '"& _usergroup & "'"
Else
filter = "身份证号 = '" & dr1("身份证件号") & "' and 姓名 = '" & dr1("学生姓名") & "' and 级 = '" & dr1("班级") & "'and 考试名称='" & c7 & "' and 学校名称 = '"& _usergroup & "'"
End If
dr2 = DataTables("生地报名库").Find(filter)
If dr2 Is Nothing Then
If dr1("年级")= "初中2016级"
dr2 = DataTables("生地报名库").AddNew()
End If
If dr1("年级")= "初中2015级"
Dim ks As String = "17春中考"
Dim yjks As DataRow = DataTables("成绩").sqlFind("身份证件号 = '" & dr1("身份证件号") & "' And 考试名称 ='" & ks & "'")
If yjks IsNot Nothing
If yjks("总分")> yjks("生物_")+yjks("地理_")
dr2 = DataTables("生地报名库").AddNew()
End If
End If
End If (如果是2015级,在成绩中找这个人如果有且总分超过生物+地理则增加补考)
End If
If dr2 IsNot Nothing Then
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("考试名称") = c7
dr2("年级")= trim(str(v - val(trim(year)) + j+9))
su = su +1
p.Value = su
End If
Next