以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DrawCell代码如何简化  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143433)
--  作者：蓝蚂蚁
--  发布时间：2019/11/25 9:13:00
--  DrawCell代码如何简化
表有15列，其中一部分列的颜色是根据进口国产列的条件进行变色，例如下面的代码感觉很冗长，如何进行简化，谢谢！
If e.Col.name = "A证_有无" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "A证_代码" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "A证_编号" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "A证_效期始" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "A证_效期终" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "B证_有无" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "B证_效期始" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
If e.Col.name = "B证_效期终" AndAlso e.Row("进口国产") = "进口"
    e.style = "进口颜色"
End If
--  作者：WELOVEFOX
--  发布时间：2019/11/25 9:22:00
--  
给个示例：
If e.Row("第一列") = "1" AndAlso (e.Col.name = "第二列" Or e.Col.name = "第三列" Or e.Col.name = "第四列")
    e.style = "R"
End If
--  作者：有点蓝
--  发布时间：2019/11/25 9:30:00
--  
Select Case e.Col.name
    Case "A证_代码","A证_编号",...自己补充完整
        If  e.Row("进口国产") = "进口"
            e.style = "进口颜色"
        End If
End Select