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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 绘制问题

共有2189人关注过本帖树形打印复制链接主题：绘制问题

sf020cf

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

加好友

发短信

等级：一尾狐帖子：412 积分：2665 威望：0 精华：0 注册：2015/10/2 23:48:00

绘制问题

Post By：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

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/27 10:37:00 [只看该作者]

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

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

sf020cf

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

加好友

发短信

等级：一尾狐帖子：412 积分：2665 威望：0 精华：0 注册：2015/10/2 23:48:00

Post By：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

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：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

[此贴子已经被作者于2015/10/27 11:12:24编辑过]

sf020cf

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

加好友

发短信

等级：一尾狐帖子：412 积分：2665 威望：0 精华：0 注册：2015/10/2 23:48:00

Post By：2015/10/27 12:00:00 [只看该作者]

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

下一主题 >> << 上一主题

主题：绘制问题