- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多值列含有该值绿色显示，不含红色显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151759)
-- 发布时间：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
求助，
国家列 中国 或 中国，日本 时，绿色显示。 亚洲列只没有的国家红色显示，比如：美国
亚洲列 韩国，菲律宾，中国，孟加拉，日本，老挝
-- 发布时间：2020/7/2 20:33:00
--
2个表的数据是怎么样的，截图看看
-- 发布时间：2020/7/2 20:41:00
-- 回复：（有点蓝）2个表的数据是怎么样的，截图看看
此主题相关图片如下：商议.jpg
-- 发布时间：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
-- 发布时间：2020/7/2 21:16:00
-- 回复：（有点蓝）If e.Col.name = "国家" Then ...
坛主，上楼代码，有问题。都 红色 了
-- 发布时间：2020/7/2 21:20:00
--
表格里的逗号全部改为英文逗号