以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  绘制问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76337)
--  作者：sf020cf
--  发布时间：2015/10/27 10:17:00
--  绘制问题

Select Case e.Col.Name
    Case "项目","承运商","司机","车牌","车型","车辆属性"
        If e.Row.IsNull(e.Col.Name) = False 
            e.Style = "已配车" 
        Else
            e.Style = "未配车" 
        End If
End Select

 

又来叨扰大家了 我想要"承运商","司机","车牌","车型","车辆属性" 单元格都要有值 "项目"单元格才用已配车样式 否则少前面一样都是用未配车样式,要怎么实现,万能的吧主 高手 大大们 请赐予我代码吧


 
--  作者：Hyphen
--  发布时间：2015/10/27 10:37:00
--  

 If Not(e.Row.IsNull("承运商") OrElse e.Row.IsNull("司机") OrElse 其它字段...) Then

 e.Style = "已配车"
Else
e.Style = "未配车"

--  作者：sf020cf
--  发布时间：2015/10/27 10:53:00
--  
以下是引用Hyphen在2015/10/27 10:37:00的发言：

 If Not(e.Row.IsNull("承运商") OrElse e.Row.IsNull("司机") OrElse 其它字段...) Then

 e.Style = "已配车"
Else
e.Style = "未配车"

不是整行绘制 只是项目单元格绘制 (判断"承运商","司机","车牌","车型","车辆属性" 单元格是否有值后绘制项目单元格)
--  作者：lsy
--  发布时间：2015/10/27 11:00:00
--  
If e.Col.Name = "项目" Then
    e.Style = "已配车"
    For Each s As String In "承运商|司机|车牌|车型|车辆属性".Split("|")
        If e.Row.IsNull(s) Then
            e.Style = "未配车"
            Exit For
        End If
    Next
End If
[此贴子已经被作者于2015/10/27 11:12:24编辑过]
--  作者：sf020cf
--  发布时间：2015/10/27 12:00:00
--  

大大们都是万能的 我也要不断进步 早日脱白