Foxtable(狐表)用户栏目专家坐堂 → [求助]多值列含有该值绿色显示,不含红色显示


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

主题:[求助]多值列含有该值绿色显示,不含红色显示

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
[求助]多值列含有该值绿色显示,不含红色显示  发帖心情 Post By:2020/7/2 20:17:00 [只看该作者]

If e.Col.name = "国家" Then
    If e.Row.isnull("亚洲")  = False Then
         If DataTables("地区").find("',' + 国家 + ','  like '%," & e.Row("亚洲") &"|%' And _Identify = " & e.DataRow("_Identify") ")  is nothing then
            
            e.style = "样式1"
        End If
    End If
End If

求助,
国家列  中国   或  中国,日本  时,绿色显示。  亚洲列只没有的国家红色显示,比如:美国
亚洲列 韩国,菲律宾,中国,孟加拉,日本,老挝


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/2 20:33:00 [只看该作者]

2个表的数据是怎么样的,截图看看

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)2个表的数据是怎么样的,截图看看  发帖心情 Post By:2020/7/2 20:41:00 [只看该作者]


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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/2 21:03:00 [只看该作者]

If e.Col.name = "国家" Then
    If e.Row.isnull("亚洲")  = False AndAlso e.Row.isnull("国家")  = False Then
        Dim arr() As String = e.Row("亚洲").split(",")
        For Each s As String In e.Row("国家").split(",")
            If array.indexof(arr,s)  = -1 Then
                e.style = "红色"
return
            End If
        Next
        e.style = "红色绿色"
    End If
End If

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)If e.Col.name = "国家" Then  ...  发帖心情 Post By:2020/7/2 21:16:00 [只看该作者]

坛主,上楼代码,有问题。都 红色 了

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/2 21:20:00 [只看该作者]

表格里的逗号全部改为英文逗号

 回到顶部