Foxtable(狐表)用户栏目专家坐堂 → [求助]后台控制单元格背景色及字体颜色


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

主题:[求助]后台控制单元格背景色及字体颜色

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
[求助]后台控制单元格背景色及字体颜色  发帖心情 Post By:2020/4/20 20:20:00 [显示全部帖子]

想实现通过后台表控制某表某列值等于xx时,该单元格背景色及xx字体颜色

表名  列名 单元格颜色  字体颜色  停用

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/4/21 11:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

表A第一列值 等于 中国 美国 显示颜色后台控制,求助

.NET Framework 版本:4.0.30319.34209
Foxtable 版本:2020.4.10.8
错误所在事件:表,表A,DrawCell
详细错误信息:
调用的目标发生了异常。
从字符串“”到类型“Integer”的转换无效。
输入字符串的格式不正确。



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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)请把颜色值转换为整数存储:http://w...  发帖心情 Post By:2020/4/21 12:30:00 [显示全部帖子]

坛主,颜色设置为整数,可以显示列颜色了,不过是整列一个颜色,不是想实现的效果
加一个列值相等后台表的条件才颜色突显,下面代码怎么修改,求助
是否要for each  循环查找

Dim dr As DataRow = DataTables("后台表").find("表名='" & e.Table.name & "' and 列名='" & e.Col.name & "' and 列值='" & e.Col.Value & "' And 停用=false")
If dr IsNot Nothing Then
e.Table.DataTable.AddUserStyle(e.Table.name & e.Col.name, Color.FromARGB(dr("单元格颜色")), Color.FromARGB(dr("字体颜色")))
    e.style =e.Table.name & e.Col.name
End If
[此贴子已经被作者于2020/4/21 12:50:47编辑过]

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)If dr IsNot Nothing andalso&n...  发帖心情 Post By:2020/4/21 14:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:7.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看

想只是
 中国 美国 单元格颜色突显
          美国 单元格颜色突显
Dim dr As DataRow = DataTables("后台表").find("表名='" & e.Table.name & "' and 列名='" & e.Col.name & "' and 停用=false")
If dr IsNot Nothing AndAlso e.Col.name = dr("列名") Then
'If e.Col.name = dr("列名") Then
    If dr IsNot Nothing Then
        e.Table.DataTable.AddUserStyle(e.Table.name & e.Col.name, Color.FromARGB(dr("单元格颜色")), Color.FromARGB(dr("字体颜色")))
        e.style =e.Table.name & e.Col.name
    End If
End If



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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)If dr IsNot Nothing AndAlso e.Col....  发帖心情 Post By:2020/4/21 15:16:00 [显示全部帖子]

坛主,上楼代码
第一列  中国 可以颜色突显
 第一列  美国 颜色突显不了,求助美国也颜色突显
[此贴子已经被作者于2020/4/21 15:16:42编辑过]

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)Dim dr As DataRow = DataTables("后...  发帖心情 Post By:2020/4/21 20:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:b.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:a.png
图片点击可在新窗口打开查看

还是不能一列,多个单元格显示不同颜色
辛苦,坛主再看看了
Dim dr As DataRow = DataTables("后台表").find("表名='" & e.Table.name & "' and 列名='" & e.Col.name & "'  and 列值='" & e.Row(e.Col.name)  & "' And  停用=false") 
If dr IsNot Nothing AndAlso e.Col.name = dr("列名") AndAlso e.Row(e.Col.name)  = dr("列值") Then 
'If dr IsNot Nothing AndAlso e.Col.name = dr("列名") Then
'If e.Col.name = dr("列名") Then
    If dr IsNot Nothing Then
        e.Table.DataTable.AddUserStyle(e.Table.name & e.Col.name, Color.FromARGB(dr("单元格颜色")), Color.FromARGB(dr("字体颜色")))
        e.style =e.Table.name & e.Col.name
    End If
End If


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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/4/22 11:36:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:3还有问题.foxdb


还是有问题,辛苦坛主再出手了

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/4/26 11:29:00 [显示全部帖子]

坛主,如果后台表,增加 字体 列,控制单元格字体,上楼代码怎么增加 字体控制?求助

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)无法单独设置单元格字体,只能统一设...  发帖心情 Post By:2020/4/26 12:33:00 [显示全部帖子]

坛主 14楼代码放在一定要放在每个表属性里面,才有效果。
问题:放在项目属性drawcell里面没效,求助


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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/4/29 15:37:00 [显示全部帖子]

坛主,单元格背景色及字体颜色,14楼代码要在 窗口副本表也显示,代码怎么修改求助?

 回到顶部
总数 18 1 2 下一页