- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表样式的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186673)
-- 发布时间：2023/5/18 22:39:00
-- 表样式的问题
If e.Row("列一") = e.Row("测一")Then
e.Style = "样式一"
End If
需求：表A的每行有相同的数据用颜色给标识，执行上面代码，没反应，要如何实现？
[此贴子已经被作者于2023/5/19 13:42:29编辑过]
-- 发布时间：2023/5/18 23:19:00
--
添加样式了吗？
if e.col.name = "列一" orelse e.col.name = "测一"
If e.Row("列一") = e.Row("测一")Then
e.Style = "样式一"
End If
End If
-- 发布时间：2023/5/19 0:22:00
--
添加样式了
If e.Col.name = "第一列" OrElse e.Col.name = "测一"OrElse e.Col.name = "测二" OrElse e.Col.name = "测三"OrElse e.Col.name = "测四"OrElse e.Col.name = "测五"Then
If e.Row("第一列") = e.Row("测一")Then
e.Style = "样式一"
ElseIf e.Row("第一列") = e.Row("测二")Then
e.Style = "样式一"
ElseIf e.Row("第一列") = e.Row("测三")Then
e.Style = "样式一 "
ElseIf e.Row("第一列") = e.Row("测四")Then
e.Style = "样式一 "
ElseIf e.Row("第一列") = e.Row("测五")Then
e.Style = "样式一 "
Else
End If
End If
If e.Col.name = "第二列" OrElse e.Col.name = "测一"OrElse e.Col.name = "测二" OrElse e.Col.name = "测三"OrElse e.Col.name = "测四"OrElse e.Col.name = "测五"Then
If e.Row("第二列") = e.Row("测一")Then
e.Style = "样式一"
ElseIf e.Row("第二列") = e.Row("测二")Then
e.Style = "样式一"
ElseIf e.Row("第二列") = e.Row("测三")Then
e.Style = "样式一 "
ElseIf e.Row("第二列") = e.Row("测四")Then
e.Style = "样式一 "
ElseIf e.Row("第二列") = e.Row("测五")Then
e.Style = "样式一 "
Else
End If
End If
以上代码，执行"测一"、"测二"、"测三"、"测四"、"测五"标识出来，不是需求。
如何实现下面需求
第一列在"测一"、"测二"、"测三"、"测四"、"测五"中找到相同，标识出来，不相同不标识
第二列在"测一"、"测二"、"测三"、"测四"、"测五"中找到相同，标识出来，不相同不标识
-- 发布时间：2023/5/19 8:43:00
--
If e.Col.name = "第一列" Then
if e.Col.name = "测一"
If e.Row("第一列") = e.Row("测一")Then
e.Style = "样式一"
endif
Elseif e.Col.name = "测二"
If e.Row("第一列") = e.Row("测二")Then
e.Style = "样式一"
endif
Elseif e.Col.name = "测三"
……
-- 发布时间：2023/5/19 9:16:00
--
老师，测试一下，没报错，无法标识显示
[此贴子已经被作者于2023/5/19 13:42:44编辑过]
-- 发布时间：2023/5/19 9:20:00
--
去掉第一句if判断
If e.Col.name = "第一列" Then |
-- 发布时间：2023/5/19 10:04:00
--
If e.Col.name = "测一" Then
If e.Row("第一列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" Then
If e.Row("第一列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" Then
If e.Row("第一列") = e.Row("测三")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测四" Then
If e.Row("第一列") = e.Row("测四")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测五" Then
If e.Row("第一列") = e.Row("测五")Then
e.Style = "样式一"
End If
End If
If e.Col.name = "测二" Then
If e.Row("第二列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" Then
If e.Row("第二列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" Then
If e.Row("第二列") = e.Row("测三")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测四" Then
If e.Row("第二列") = e.Row("测四")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测五" Then
If e.Row("第二列") = e.Row("测五")Then
e.Style = "样式一"
End If
End If
If e.Col.name = "测三" Then
If e.Row("第三列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" Then
If e.Row("第三列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" Then
If e.Row("第三列") = e.Row("测三")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测四" Then
If e.Row("第三列") = e.Row("测四")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测五" Then
If e.Row("第三列") = e.Row("测五")Then
e.Style = "样式一"
End If
End If
If e.Col.name = "测四" Then
If e.Row("第四列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" Then
If e.Row("第四列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" Then
If e.Row("第四列") = e.Row("测三")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测四" Then
If e.Row("第四列") = e.Row("测四")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测五" Then
If e.Row("第四列") = e.Row("测五")Then
e.Style = "样式一"
End If
End If
If e.Col.name = "测五" Then
If e.Row("第五列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" Then
If e.Row("第五列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" Then
If e.Row("第五列") = e.Row("测三")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测四" Then
If e.Row("第五列") = e.Row("测四")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测五" Then
If e.Row("第五列") = e.Row("测五")Then
e.Style = "样式一"
End If
End If
执行上面代码，无法实现需求效果。
此主题相关图片如下：样式问题一.jpg
-- 发布时间：2023/5/19 10:07:00
--
需求：标准数和测试对比数，实现相同数据进行标识
-- 发布时间：2023/5/19 10:10:00
--
If e.Col.name = "测一" OrElse e.Col.name = "第一列" Then
If e.Row("第一列") = e.Row("测一")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测二" OrElse e.Col.name = "第二列" Then
If e.Row("第二列") = e.Row("测二")Then
e.Style = "样式一"
End If
ElseIf e.Col.name = "测三" OrElse e.Col.name = "第三列" Then
……
-- 发布时间：2023/5/19 10:48:00
--
此主题相关图片如下：样式问题二.jpg