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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断着色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85218)

--  作者：260964006
--  发布时间：2016/5/20 15:00:00
--  判断着色

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

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

--  作者：大红袍
--  发布时间：2016/5/20 15:02:00
--

参考

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

--  作者：260964006
--  发布时间：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点_供应商简称"列。上述程序怎么变成了此行了？

--  作者：大红袍
--  发布时间：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
--  发布时间：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点_供应商简称"着色，后面就不执行了。

--  作者：大红袍
--  发布时间：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

--  作者：260964006
--  发布时间：2016/5/21 10:47:00
--

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

上述的程序怎么写？谢谢

--  作者：Hyphen
--  发布时间：2016/5/21 11:01:00
--
要做什么，说明一下，贴出代码

--  作者：260964006
--  发布时间：2016/5/21 11:07: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

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

[此贴子已经被作者于2016/5/21 11:40:01编辑过]

--  作者：Hyphen
--  发布时间：2016/5/21 11:22:00
--
要做什么？