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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有7748人关注过本帖树形打印复制链接主题：[求助]

郭长青

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

加好友

发短信

等级：婴狐帖子：34 积分：505 威望：0 精华：0 注册：2013/3/12 14:32:00

[求助]

Post By：2013/3/17 12:13:00 [只看该作者]

将DrawCell事件的代码设为：

'如果是数值型列，且不是总分列
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 = "不及格" '那么用"不及格"样式绘制单元格
        End If
    End If
End If

3、在计划管理(位于数据库功能区)中增加一个计划，时间间隔设为1000，代码设为

With DataTables("成绩表").Styles("不及格")
    If .BackColor = Color.Red Then
        .BackColor = Color.White
    Else
        .BackColor = Color.Red
    End If
End With

请问：如果不是数值列可以吗，例如等于张三，代码有是怎样的，谢谢

y2287958

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

加好友

发短信

等级：狐神帖子：4760 积分：34608 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/3/17 12:50:00 [只看该作者]

可以，按表达式要求填写。

郭长青

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

加好友

发短信

等级：婴狐帖子：34 积分：505 威望：0 精华：0 注册：2013/3/12 14:32:00

Post By：2013/3/17 17:26:00 [只看该作者]

麻烦帮我写一下代码，谢谢

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/18 8:35:00 [只看该作者]

If e.Col.IsNumeric AndAlso e.Col.Name = "姓名" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) = “张三" Then '如果该列的值小于60
            e.Style = "不及格" '那么用"不及格"样式绘制单元格
        End If
    End If
End If

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

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

主题：[求助]