主题：判断着色

此主题相关图片如下：11.png

上述要求能不能再foxtable里面完成？怎么设计。程序放那里?

If e.Row("车型") = "售后"  Then
        If e.Row.IsNull("零件名称") = False Then
            If e.Row("A点_供应商简称") = Nothing Then
           e.Style = "到期"
End If
End If
End If

 

"零件名称"列不为空，则"A点_供应商简称"列为空，则只着色"A点_供应商简称"列。上述程序怎么变成了此行了？

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

1、此程序能不能优化？  2、"A点_供应商简称" 、"A点_售后含税单价" 和"A点_合同编号" 是逐个判断呢，即"A点_供应商简称"着色，后面就不执行了。

 

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

上述的程序怎么写？谢谢

 

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

   此为部分代码。要求在7楼