Foxtable(狐表)用户栏目专家坐堂 → 表样式的问题


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

主题:表样式的问题

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 = "测三"
……

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/19 9:20:00 [显示全部帖子]

去掉第一句if判断

If e.Col.name = "第一列" Then

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
……

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/19 10:50:00 [显示全部帖子]

没看懂,重新描述一下具体功能

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/19 11:36:00 [显示全部帖子]

If e.Col.Name = "第一列" Then
    For Each s2 As String In {"测一", "测二", "测三", "测四", "测五"}
        If e.Row("第一列") = e.Row(s2) Then
            e.Style = "样式一"
            Exit For
        End If 
    Next 
ElseIf e.Col.Name = "第二列" Then
    For Each s2 As String In {"测一", "测二", "测三", "测四", "测五"}
        If e.Row("第二列") = e.Row(s2) Then
            e.Style = "样式一"
            Exit For
        End If 
    Next
……
End If

If e.Col.Name = "测一" Then
    For Each s2 As String In {"第一列", "第二列", "第三列", "第四列", "第五列"}
        If e.Row("第一列") = e.Row(s2) Then
            e.Style = "样式一"
            Exit For
            Exit For
        End If 
    Next 
ElseIf e.Col.Name = "测二" Then
    For Each s2 As String In {"第一列", "第二列", "第三列", "第四列", "第五列"}
        If e.Row("测二") = e.Row(s2) Then
            e.Style = "样式一"
            Exit For
        End If 
    Next 
……
End If

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


加好友 发短信
等级:超级版主 帖子:110758 积分:563716 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/19 13:32:00 [显示全部帖子]

……

If e.Col.Name = "测一" Then
    For Each s2 As String In {"第一列", "第二列", "第三列", "第四列", "第五列"}
        If e.Row("测一") = e.Row(s2) Then
            e.Style = "样式一"
            Exit For
        End If 
……

 回到顶部