Foxtable(狐表)用户栏目专家坐堂 → 为什么遍历表不能设置表样式?只能单独设置?


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

主题:为什么遍历表不能设置表样式?只能单独设置?

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


加好友 发短信
等级:一尾狐 帖子:498 积分:4556 威望:0 精华:0 注册:2014/1/16 16:55:00
为什么遍历表不能设置表样式?只能单独设置?  发帖心情 Post By:2022/10/18 19:41:00 [只看该作者]

For Each T1 As Table In Tables
    If T1.NAME = "Task_Log" Then
        T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
        T1.SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
        T1.SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
        T1.SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)
        T1.ListMode = True  '整行突出显示
        T1.Refresh
        OUTPUT.SHOW(T1.NAME)
    End If
Next

图片点击可在新窗口打开查看

'For Each T1 As Table In Tables
    'If T1.NAME = "Task_Log" Then
        'T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
        'T1.SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
        'T1.SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
        'T1.SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)
        'T1.ListMode = True  '整行突出显示
        'T1.Refresh
        'OUTPUT.SHOW(T1.NAME)
    'End If
'Next

Tables("Task_Log").SysStyles("CurrentRow").BackColor = Color.FromARGB(255,136,028,028)
Tables("Task_Log").SysStyles("CurrentRow").ForeColor = Color.FromARGB(255,255,255,255)
Tables("Task_Log").SysStyles("Focus").BackColor = Color.FromARGB(255,136,028,028)
Tables("Task_Log").SysStyles("Focus").ForeColor = Color.FromARGB(255,255,255,000)

图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/18 20:26:00 [只看该作者]

注意代码顺序,先设置整行突出显示

For Each T1 As Table In Tables
    If T1.NAME = "表A" Then
        T1.ListMode = True '整行突出显示
        T1.SysStyles("CurrentRow").BackColor = Color.FromARGB(255, 136, 028, 028)

 回到顶部