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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字体自动变色

共有14444人关注过本帖树形打印复制链接主题：字体自动变色

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/4/8 15:52:00 [显示全部帖子]

If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) < 60 Then '如果该列的值小于60
            e.Style = "不及格" '那么用"不及格"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 95 Then '如果单元格的值大于95
            e.Style = "优秀" '那么用"优秀"样式绘制单元格
        End If
    End If
End If

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/4/8 15:58:00 [显示全部帖子]

If e.Col.IsNumeric AndAlso e.Col.Name <> "盘具成本" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) =0.00 Then '如果该列的值=0.00
            e.Style = "无色"   '那么用"全木盘_金额=0"样式绘制单元格
        ElseIf e.Row(e.Col.Name) > 0.00 Then '如果单元格的值大于95
            e.Style = "红色"   '那么用"全木盘_金额>0"样式绘制单元格
        End If
    End If
End IF

不执行吗？

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/4/8 15:58:00 [显示全部帖子]

真的不行的话，上传附件。

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

主题：字体自动变色