Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:查找与循环

1楼
floor2 发表于:2009/8/2 21:00:00
 在颜色列里,单元格若有“白”字就用“白色式样”,单元格若有“红”字就用“红色式样”,如何结合循环和查找代码,谢谢。
2楼
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编辑过]
3楼
floor2 发表于:2009/8/2 21:33:00
颜色列的 内容有可能是 消光白,漂白,本白等,我想有个“白”的字符,就用“白色式样”
4楼
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
5楼
floor2 发表于:2009/8/2 21:51:00

drawcell里的帮助里也是这代码结构,出现的是单元格变色,按照版主的代码,怎么会是整行都变色了? 谢谢。
6楼
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
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.