以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于表中列边框的颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81606)

--  作者:zhsenchzhi
--  发布时间:2016/3/2 1:20:00
--  关于表中列边框的颜色
请问能否将 表中 第 2,3 列之间的 分割线 变粗或者变个颜色呢, 不是单元格整个的颜色,而是 仅仅  2,3 列之间的 分割线, 也就是 第二列 右边框 和第三列 左边框的颜色和粗细
--  作者:大红袍
--  发布时间: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
--  发布时间:2016/3/2 10:35:00
--  
多谢楼上, 可是我用这个方法试了之后,发现 单元格 横向的  边框消失了,(如下图所示:) 这是为什么呢,怎样把它们恢复又不影响纵向边框的设置呢?


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


--  作者:大红袍
--  发布时间:2016/3/2 10:44:00
--  

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

 

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


--  作者:y2287958
--  发布时间:2019/8/7 9:45:00
--  
请问:以上设置后,如何用代码恢复到初始状态?
--  作者:有点蓝
--  发布时间:2019/8/7 9:48:00
--  
1、重新加载一下表,注意不是加载数据
2、设置前记录原来的样式,同样的代码设置回原来的样式