主题：按钮代码问题求助版主！！！！！！

 看2楼。

谢谢版主！！！！！！

这代码除了“高级工”和“中级工”不一样，其他要求都一样，是否可以优化一下？也可以少占些行数！是否可以用“OR”进行合并？

If e.DataRow("鉴定等级") = "高级工" Then
    e.DataRow("是否合格") = True
End If

If e.DataRow("鉴定等级") = "中级工" Then
    e.DataRow("是否合格") = True
End If

Select Case e.DataCol.Name
    Case "鉴定等级",  "是否合格", "申报性质"
        If e.DataRow("鉴定等级") = "高级工" OrElse e.DataRow("鉴定等级") = "中级工" Then
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
                If e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("是否合格") = True Then
                    e.DataRow("资格审核") = True
                    If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("是否合格") = True Then
                        e.DataRow("资格审核") = True
                    Else
                        e.DataRow("资格审核") = False
                    End If
                End If
            End If
        Else
           
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
            Else
                e.DataRow("资格审核") = False
            End If
           
        End If
End Select

谢谢版主！！！！！这样看起来清爽多了！

If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
            Else
                e.DataRow("资格审核") = False
            End If
           
        End If
End Select
求教版主：14楼End Select 上的几行代码是不是跟上一段的重复了？

 没看懂你表达式什么

另外如果要加入“鉴定等级”＝“技师”的，“申报性质”＝“补考实操”或“补考潜能”的代码，是不是要写过一段代码加在后面？

14楼是您昨天写的

 你说其余的都一样啊

 

ElseIf e.DataRow("鉴定等级") = "技师" Then

 

Else    
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
        e.DataRow("资格审核") = True
    Else
        e.DataRow("资格审核") = False
    End If
   
End If