以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中的Table网格线颜色设置问题,请教老师  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73472)
--  作者：mamuaiqing
--  发布时间：2015/8/20 1:46:00
--  窗口中的Table网格线颜色设置问题,请教老师
学生想把窗口中Table的第一列、第二列、第三列，每一行的网格线颜色设置成黑色，用代码怎么实现，请教老师
--  作者：大红袍
--  发布时间：2015/8/20 9:23:00
--  
Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
For i As Integer = 0 To t.rows.count - 1
    t.grid.SetCellStyle(i+1, 1, cs1)
Next
--  作者：mamuaiqing
--  发布时间：2015/8/22 20:11:00
--  
没变化,是怎么回事,再请教老师下,谢谢
--  作者：有点蓝
--  发布时间：2015/8/22 20:24:00
--  
改变下样式测试
Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
  cs1.BackColor = Color.Red
For i As Integer = 0 To t.rows.count - 1
    t.grid.SetCellStyle(i+1, 1, cs1)
Next
--  作者：mamuaiqing
--  发布时间：2015/8/22 20:33:00
--  
这是改变了单元格的颜色,学生是想把网格线的第一列,第二列,第三列颜色换成黑色
--  作者：有点蓝
--  发布时间：2015/8/22 20:38:00
--  
  cs1.Border.Color = Color.Red
--  作者：mamuaiqing
--  发布时间：2015/8/22 20:47:00
--  
OK了,感谢有点蓝老师
--  作者：ZHX88863808
--  发布时间：2015/8/23 6:34:00
--  

这里也顺便请问一下老师，如果表A中的任意列（如客户列、商品列、数量列）的网络线顔色代码如何写，写在那里最好？谢谢！
--  作者：大红袍
--  发布时间：2015/8/23 10:17:00
--  

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.Border.Color = Color.Red

For i As Integer = 0 To t.rows.count - 1
    t.grid.SetCellStyle(i+1, t.cols("第二列").index+1, cs1)
   
    t.grid.SetCellStyle(i+1, t.cols("第五列").index+1, cs1)
Next
--  作者：ZHX88863808
--  发布时间：2015/8/23 20:47:00
--  
谢谢老师，但是，列的左边线顔色不显示，觉得有点不完美，能否再修改一下，谢谢！