主题：代码执行不了

在表DataColChanged事件中下面代码执行不了

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "审核"

        If e.NewValue = True Then

            If e.DataCol.Name.Contains("审核人") Then

                dr("审核人") = User.Name

            ElseIf e.DataCol.Name.Contains("审核日期") Then

                dr("审核日期") = Date.Today

            End If

        Else

            If e.DataCol.Name.Contains("审核人") Then

                dr("审核人") = Nothing

            ElseIf e.DataCol.Name.Contains("审核日期") Then

                dr("审核日期") = Nothing

            End If

        End If

End Select

需求是最后在全局代码中写入，如果表中有“审核”列时，“审核人”、“审核日期”（这二个不一定有或全有）如果有就执行，没有就return