|
If e.DataRow("鉴定等级") = "技师" Then
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
e.DataRow("实潜资格") = True
Else If e.DataRow("申报性质") = "补考两项" Then
e.DataRow("实潜资格") = True
Else If e.DataRow("申报性质") = "补考实操" Then
e.DataRow("实潜资格") = True
Else If e.DataRow("申报性质") = "补考潜能" Then
e.DataRow("实潜资格") = True
Else
e.DataRow("实潜资格") = False
End If
If e.DataRow("实潜资格") = True AndAlso e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >=60 Then
e.DataRow("评审资格") = True
Else
e.DataRow("评审资格") = False
End If
End If
| 
加好友 
发短信
Post By：2015/2/12 23:40:00 [显示全部帖子]
