以文本方式查看主题

-  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