判断着色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断着色

共有2489人关注过本帖树形打印复制链接主题：判断着色

260964006

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：99 积分：852 威望：0 精华：0 注册：2015/6/19 14:35:00

判断着色

Post By：2016/5/20 15:00:00 [只看该作者]

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

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 15:02:00 [只看该作者]

参考

http://www.foxtable.com/help/topics/0656.htm

260964006

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：99 积分：852 威望：0 精华：0 注册：2015/6/19 14:35:00

Post By：2016/5/20 15:53:00 [只看该作者]

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点_供应商简称"列。上述程序怎么变成了此行了？

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 15:55:00 [只看该作者]

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

260964006

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：99 积分：852 威望：0 精华：0 注册：2015/6/19 14:35:00

Post By：2016/5/20 16:10:00 [只看该作者]

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点_供应商简称"着色，后面就不执行了。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 16:28:00 [只看该作者]

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