Foxtable(狐表)用户栏目专家坐堂 → 窗口中的Table网格线颜色设置问题,请教老师


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

主题:窗口中的Table网格线颜色设置问题,请教老师

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
窗口中的Table网格线颜色设置问题,请教老师  发帖心情 Post By:2015/8/20 1:46:00 [只看该作者]

学生想把窗口中Table的第一列、第二列、第三列,每一行的网格线颜色设置成黑色,用代码怎么实现,请教老师

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2015/8/22 20:11:00 [只看该作者]

没变化,是怎么回事,再请教老师下,谢谢

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


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2015/8/22 20:33:00 [只看该作者]

这是改变了单元格的颜色,学生是想把网格线的第一列,第二列,第三列颜色换成黑色

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


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

  cs1.Border.Color = Color.Red

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2015/8/22 20:47:00 [只看该作者]

OK了,感谢有点蓝老师

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


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2015/8/23 6:34:00 [只看该作者]

这里也顺便请问一下老师,如果表A中的任意列(如客户列、商品列、数量列)的网络线顔色代码如何写,写在那里最好?谢谢!


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2015/8/23 20:47:00 [只看该作者]

谢谢老师,但是,列的左边线顔色不显示,觉得有点不完美,能否再修改一下,谢谢!

 回到顶部
总数 12 1 2 下一页