主题：代码纠错

Select Case e.DataCol.Name

    Case "审批结果1","审批人1","审批结果2","审批人2","审批结果3","审批人3","审批结果4","审批人4","审批结果5","审批人5","审批人6","审批日期6","审批日期7","审批人7"

        Dim dr As DataRow = e.DataRow

        

        If dr.IsNull("审批结果1") = False AndAlso dr.IsNull("审批人1") = False Then

            e.DataRow("进度") = "2A"

            If dr.IsNull("审批结果2") = False AndAlso dr.IsNull("审批人2") = False Then

                e.DataRow("进度") = "3A"

                If dr.IsNull("审批结果3") = False AndAlso dr.IsNull("审批人3") = False Then

                    e.DataRow("进度") = "4A"

                    If dr.IsNull("审批结果4") = False AndAlso dr.IsNull("审批人4") = False Then

                        e.DataRow("进度") = "5A"

                        If dr.IsNull("审批结果5") = False AndAlso dr.IsNull("审批人5") = False  AndAlso dr("维修厂") = User.IsRole("维修厂审核员") Then

                                             

                        If dr.IsNull("审批人6") = False AndAlso dr.IsNull("审批日期6") = False Then

                            e.DataRow("进度") = "7A"

                            

                        End If

                    End If

                End If

            End If

        End If

    End If

End If

看红色部分，我写的不报错，但是无效，怎么写字段“维修厂” （下拉框） 是否属于指定的角色