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 [显示全部帖子]
Post By：2017/4/11 8:38:00 [显示全部帖子]
谢谢版主！水平有限，只会简单的语句，复杂点的不太会。