主题：判断着色

此主题相关图片如下：1111.jpg

If e.Row.IsNull("零件名称") = False Then
    If e.Row("车型") = "售后"  Then
        If e.Row("A点_供应商简称") = Nothing Then
            If e.Col.Name = "A点_供应商简称" Then
                e.Style = "到期"
            End If
        Else  If e.Row("A点_售后含税单价") = Nothing Then
            If e.Col.Name = "A点_售后含税单价" Then
                e.Style = "到期"
            End If
        Else  If e.Row("A点_合同编号") = Nothing Then
            If e.Col.Name = "A点_合同编号" Then
                e.Style = "到期"
            End If
        Else  If e.Row("A点占比") = "100"  Then
            If e.Row("A点_供应商简称") = Nothing Then
                If e.Col.Name = "A点_供应商简称" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_含税单价") = Nothing Then
                If e.Col.Name = "A点_含税单价" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_合同编号") = Nothing Then
                If e.Col.Name = "A点_合同编号" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_供应商简称") = Nothing Then
                If e.Col.Name = "A点_供应商简称" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_含税单价") = Nothing Then
                If e.Col.Name = "A点_含税单价" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_合同编号") = Nothing Then
                If e.Col.Name = "A点_合同编号" Then
                    e.Style = "到期"
                End If
                If e.Row("B点_供应商简称") = Nothing Then
                    If e.Col.Name = "B点_供应商简称" Then
                        e.Style = "到期"
                    End If
                Else  If e.Row("B点_含税单价") = Nothing Then
                    If e.Col.Name = "B点_含税单价" Then
                        e.Style = "到期"
                    End If
                Else  If e.Row("B点_合同编号") = Nothing Then
                    If e.Col.Name = "B点_合同编号" Then
                        e.Style = "到期"
                    End If
                End If
            End If
        End If
    End If
End If

怎么“非售后”都不能执行呢？

怎么修改上面的程序？谢谢，我有判断啊

If e.Row.IsNull("零件名称") = False Then
    If e.Row("车型") = "售后"  Then
        If e.Row.IsNull("A点_供应商简称") Then
            If e.Col.Name = "A点_供应商简称" Then
                e.Style = "到期"
            End If
        Else
            If e.Row.Isnull("A点_售后含税单价") Then
                If e.Col.Name = "A点_售后含税单价" Then
                    e.Style = "到期"
                End If
            Else If e.Row("A点_合同编号") = Nothing Then
                If e.Col.Name = "A点_合同编号" Then
                    e.Style = "到期"
                End If
            End If
        End  If
    Else
       
        If e.Row("A点占比") = "100"  Then
            If e.Row("A点_供应商简称") = Nothing Then
                If e.Col.Name = "A点_供应商简称" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_含税单价") = Nothing Then
                If e.Col.Name = "A点_含税单价" Then
                    e.Style = "到期"
                End If
            Else  If e.Row("A点_合同编号") = Nothing Then
                If e.Col.Name = "A点_合同编号" Then
                    e.Style = "到期"
                End If
            End If
        End  If
    Else If e.Row("A点_供应商简称") = Nothing Then
        If e.Col.Name = "A点_供应商简称" Then
            e.Style = "到期"
        End If
    Else  If e.Row("A点_含税单价") = Nothing Then
        If e.Col.Name = "A点_含税单价" Then
            e.Style = "到期"
        End If
    Else  If e.Row("A点_合同编号") = Nothing Then
        If e.Col.Name = "A点_合同编号" Then
            e.Style = "到期"
        End If
        If e.Row("B点_供应商简称") = Nothing Then
            If e.Col.Name = "B点_供应商简称" Then
                e.Style = "到期"
            End If
        Else  If e.Row("B点_含税单价") = Nothing Then
            If e.Col.Name = "B点_含税单价" Then
                e.Style = "到期"
            End If
        Else  If e.Row("B点_合同编号") = Nothing Then
            If e.Col.Name = "B点_合同编号" Then
                e.Style = "到期"
            End If
        End If
    End If
End If

               错误。