以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查找与循环  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3788)
--  作者：floor2
--  发布时间：2009/8/2 21:00:00
--  查找与循环
 在颜色列里，单元格若有“白”字就用“白色式样”，单元格若有“红”字就用“红色式样”，如何结合循环和查找代码，谢谢。
--  作者：czy
--  发布时间：2009/8/2 21:22:00
--  

DrawCell事件代码：


If e.Row.IsNull("颜色") = False Then
    If e.Row("颜色") = "白" Then
        e.Style = "白色样式"
    ElseIf e.Row("颜色") = "红" Then
        e.Style = "红色样式"
    End If
End If

[此贴子已经被作者于2009-8-2 21:23:02编辑过]
--  作者：floor2
--  发布时间：2009/8/2 21:33:00
--  
颜色列的 内容有可能是 消光白，漂白，本白等，我想有个“白”的字符，就用“白色式样”
--  作者：czy
--  发布时间：2009/8/2 21:37:00
--  
If e.Row.IsNull("颜色") = False Then
    If e.Row("颜色") like "*白*" Then
        e.Style = "白色样式"
    ElseIf e.Row("颜色") like "*红*" Then
        e.Style = "红色样式"
    End If
End If
--  作者：floor2
--  发布时间：2009/8/2 21:51:00
--  
？
drawcell里的帮助里也是这代码结构，出现的是单元格变色，按照版主的代码，怎么会是整行都变色了？ 谢谢。
--  作者：czy
--  发布时间：2009/8/2 23:10:00
--  
如果只对颜色列变色，改成这样：

If e.Col.Name = "颜色" Then
    If e.Row("颜色") like "*白*" Then
        e.Style = "白色样式"
    ElseIf e.Row("颜色") like "*红*" Then
        e.Style = "红色样式"
    End If
End If