主题：判断着色

你要判断才会执行

If e.Row.IsNull("零件名称") = False Then
    If e.Row("车型") = "售后"  Then
        '售后

    Else

         '非售后

    End If

End If

看2楼啊，不同的条件，写在不同的位置啊。

参考代码

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
                '这里继续写下一层的判断
            End If
        End  If
    Else
       
        '非售后
       
    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
        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
            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
                    End If
                End If
            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
End If