以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29944)
--  作者：郭长青
--  发布时间：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
--  发布时间：2013/3/17 12:50:00
--  
可以，按表达式要求填写。
--  作者：郭长青
--  发布时间：2013/3/17 17:26:00
--  
麻烦帮我写一下代码，谢谢
--  作者：狐狸爸爸
--  发布时间：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

 

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