Foxtable(狐表)用户栏目专家坐堂 → 想标识列的数据


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

主题:想标识列的数据

美女呀,离线,留言给我吧!
阳光自我灿烂
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
想标识列的数据  发帖心情 Post By:2023/1/30 11:26:00 [只看该作者]

'如果是数值型列,且不是总分列
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

这个是标识表的数据,我想标识其中一列,如何标识?


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/30 11:35:00 [只看该作者]

If e.Col.Name = "某列" Then
  
e.Style = "某样式"
End
 
If

 回到顶部
美女呀,离线,留言给我吧!
阳光自我灿烂
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
  发帖心情 Post By:2023/1/30 11:50:00 [只看该作者]

OK

 回到顶部
美女呀,离线,留言给我吧!
阳光自我灿烂
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
  发帖心情 Post By:2023/1/30 11:59:00 [只看该作者]

图片点击可在新窗口打开查看
输入偏高或偏低数据时,没有按标识的颜色变化?

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/30 12:02:00 [只看该作者]

哦,应该是我理解错了。

1楼的代码
If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
改为
If e.Col.IsNumeric AndAlso e.Col.Name = "某列" Then

其它代码不变

 回到顶部
美女呀,离线,留言给我吧!
阳光自我灿烂
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
  发帖心情 Post By:2023/1/30 12:07:00 [只看该作者]

If e.Col.Name = "温度" Then
    If e.Row(e.Col.Name) < 19 Then 
        e.Style = "偏低" 
    ElseIf e.Row(e.Col.Name) > 21 Then 
        e.Style = "偏高" 
    End If
End If
输入小于19或大于21时,数据列没有标识?

 回到顶部
美女呀,离线,留言给我吧!
阳光自我灿烂
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
  发帖心情 Post By:2023/1/30 12:10:00 [只看该作者]

If e.Col.Name = "温度" Then
    If e.Col.Name < 19 Then 
        e.Style = "偏低" 
    ElseIf e.Col.Name > 21 Then 
        e.Style = "偏高" 
    End If
End If
输入小于19或大于21时,数据列没有按单元格的要求进行标识?

 回到顶部
美女呀,离线,留言给我吧!
阳光自我灿烂
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:217 威望:0 精华:0 注册:2022/6/12 17:49:00
  发帖心情 Post By:2023/1/30 12:21:00 [只看该作者]

解决了!谢谢!

 回到顶部