Foxtable(狐表)用户栏目专家坐堂 → 关于表中列边框的颜色


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

主题:关于表中列边框的颜色

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


加好友 发短信
等级:一尾狐 帖子:423 积分:3196 威望:0 精华:0 注册:2013/5/10 10:01:00
关于表中列边框的颜色  发帖心情 Post By:2016/3/2 1:20:00 [只看该作者]

请问能否将 表中 第 2,3 列之间的 分割线 变粗或者变个颜色呢, 不是单元格整个的颜色,而是 仅仅  2,3 列之间的 分割线, 也就是 第二列 右边框 和第三列 左边框的颜色和粗细

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 9:54:00 [只看该作者]

最多只能这样。

 

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")

'cs1.forecolor = Color.red
'cs1.backcolor = Color.yellow
cs1.Border.Width = 3
cs1.Border.Color = Color.Red
cs1.Border.Direction = 2
For i As Integer = 1 To t.rows.count
    For j As Integer = 2 To 2
        t.Grid.SetCellStyle(i, j, cs1)
    Next
Next


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


加好友 发短信
等级:一尾狐 帖子:423 积分:3196 威望:0 精华:0 注册:2013/5/10 10:01:00
  发帖心情 Post By:2016/3/2 10:35:00 [只看该作者]

多谢楼上, 可是我用这个方法试了之后,发现 单元格 横向的  边框消失了,(如下图所示:) 这是为什么呢,怎样把它们恢复又不影响纵向边框的设置呢?


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160302103016.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 10:44:00 [只看该作者]

没办法,这个是设置单元格边框的样式的,只能一起设置。

 

改成0,可以设置右边框和下边框。


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


加好友 发短信
等级:狐神 帖子:4649 积分:33907 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2019/8/7 9:45:00 [只看该作者]

请问:以上设置后,如何用代码恢复到初始状态?

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


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

1、重新加载一下表,注意不是加载数据
2、设置前记录原来的样式,同样的代码设置回原来的样式

 回到顶部