Foxtable(狐表)用户栏目专家坐堂 → colorlabel 里选择颜色,在识别里显示出来 drallcell 应该怎么写


  共有4018人关注过本帖树形打印复制链接

主题:colorlabel 里选择颜色,在识别里显示出来 drallcell 应该怎么写

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:22:00 [显示全部帖子]

1、表B没有drawcell事件;2、没有添加样式

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:30:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:41: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 = 
"不及格" '那么用"不及格"样式绘制单元格
        
ElseIf e.Row(e.Col.Name) > 95 Then '如果单元格的值大于95
            e.Style = 
"优秀" '那么用"优秀"样式绘制单元格
        
End If
    End
 If
End
 
If


根据需要改改优秀和不及格的样式即可

DataTables("表X").SysStyles("user不及格").BackColor = e.Sender.Color

Tables("表X").Refresh


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:47:00 [显示全部帖子]

先把drawcell帮助都看一看把:提示,自定义样式不仅可以通过菜单添加,也可以通过代码添加,请参考:AddUserStyle

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:59:00 [显示全部帖子]

自己的业务自己都不清楚那谁清楚!比如某个单元格要设置为红色。那么根据什么条件设置要自己定义的,不是别人给的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 11:10:00 [显示全部帖子]

那就参考这里的用法,http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92551&replyID=&skin=1

专门添加一个列存储要绘制的列和颜色

 回到顶部