Select Case e.DataCol.Name
Case "鉴定等级","评审资格","评审性质","评审分组","材料类别","评审结果","重报性质","年份"
If e.DataRow("年份") >= 15 Then
If e.DataRow("鉴定等级") = "高级工" OrElse e.DataRow("鉴定等级") = "中级工" Then
e.DataRow("实潜准考证号码") = e.DataRow("理论准考证号码")
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 AndAlso e.DataRow("实操成绩") >=60 OrElse e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("理论成绩") >=60 OrElse e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("实操成绩") >=60 Then
e.DataRow("评审资格") = True
e.DataRow("评审性质") = "正常评审"
e.DataRow("重报性质") = ""
e.DataRow("评审结果") = "通过"
Else
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("评审结果") = "否决"
If e.DataRow("申报性质") = "正常申报"
If .DataRow("理论成绩") >=60 Then
e.DataRow("重报性质") = "补考实操"
ElseIf .DataRow("实操成绩") >=60
e.DataRow("重报性质") = "补考理论"
Else
e.DataRow("重报性质") = "正常申报"
End If
ElseIf e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("理论成绩") <60 OrElse e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("实操成绩") <60
e.DataRow("重报性质") = "正常申报"
End If
End If
If e.DataRow("鉴定等级") = "高级工" Then
e.DataRow("材料类别") = "D"
Else If e.DataRow("鉴定等级") = "中级工" Then
e.DataRow("材料类别") = "E"
End If
End If
End If
End Select
加好友 
发短信
Post By：2019/1/7 21:37:00 [显示全部帖子]
