Select Case e.DataCol.Name
Case "鉴定等级","评审资格","评审性质","评审分组","材料类别","评审结果","重报性质","年份"
If e.DataRow("年份") >= 15 Then
If e.DataRow("鉴定等级") = "高级工" Or e.DataRow("鉴定等级") = "中级工" Then
e.DataRow("实潜准考证号码") = e.DataRow("理论准考证号码")
If e.DataRow("申报性质") = "正常申报" Or e.DataRow("申报性质") = "补考理论" Or e.DataRow("申报性质") = "补考实操" Then
If e.DataRow("理论成绩") >=60 AndAlso e.DataRow("实操成绩") >=60 Then
e.DataRow("评审资格") = True
e.DataRow("评审性质") = "正常评审"
Else
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
End If
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") <60 AndAlso e.DataRow("实操成绩") <60 Then
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("重报性质") = "正常申报"
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 AndAlso e.DataRow("实操成绩") <60 Then
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("重报性质") = "补考实操"
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") <60 AndAlso e.DataRow("实操成绩") >=60 Then
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("重报性质") = "补考理论"
ElseIf e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("理论成绩") >=60 Then
e.DataRow("评审资格") = True
e.DataRow("评审性质") = "正常评审"
e.DataRow("重报性质") = ""
ElseIf e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("理论成绩") <60 Then
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("重报性质") = "正常申报"
ElseIf e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("实操成绩") >=60 Then
e.DataRow("评审资格") = True
e.DataRow("评审性质") = "正常评审"
e.DataRow("重报性质") = ""
ElseIf e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("实操成绩") <60 Then
e.DataRow("评审资格") = False
e.DataRow("评审性质") = "没有资格"
e.DataRow("重报性质") = "正常申报"
End If
If e.DataRow("评审资格") = True Then
e.DataRow("评审结果") = "通过"
Else
e.DataRow("评审结果") = "否决"
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
版主，这段代码还能再精炼优化些吗？感觉逻辑上有些重复！自身水平太差，搞不定！
条件：1、等级有－高级工、中级工； 2、考核方式有理论和实操；
3、报名形式－A 正常申报（理论、实操都要考）； B 补考理论（只参加理论）； C 补考实操（只参加实操）；
4、无论哪种方式报名，都要理论和实操都>=60才有评审资格，评审结果算“通过”
加好友 
发短信
Post By：2019/1/7 20:49:00 [只看该作者]
