If e.DataRow("鉴定等级") = "技师" Then
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
e.DataRow("实潜资格") = True
e.DataRow("考核项目") = "两项"
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") <60 Then
e.DataRow("实潜资格") = False
e.DataRow("考核项目") = "无"
e.DataRow("补考性质") = "正常申报"
Else If e.DataRow("申报性质") = "补考实操" Or e.DataRow("申报性质") = "补考潜能" Or e.DataRow("申报性质") = "补考两项" Or e.DataRow("申报性质") = "重新评审" Or e.DataRow("申报性质") = "破格评审" Then
e.DataRow("实潜资格") = True
Else If e.DataRow("申报性质") = "补考实操" Then
e.DataRow("考核项目") = "实操"
Else If e.DataRow("申报性质") = "补考潜能" Then
e.DataRow("考核项目") = "潜能"
Else If e.DataRow("申报性质") = "补考两项" Then
e.DataRow("实潜资格") = True
e.DataRow("考核项目") = "两项"
Else If e.DataRow("申报性质") = "重新评审" Then
e.DataRow("实潜资格") = True
e.DataRow("考核项目") = "重评"
Else If e.DataRow("申报性质") = "破格评审" Then
e.DataRow("实潜资格") = True
e.DataRow("考核项目") = "破格"
End If
求版主指点，红色部分代码是否还能精减行数？
谢谢先！！！！！！
加好友 
发短信
Post By：2017/4/10 16:13:00 [只看该作者]
