- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口表勾选行边框着色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188405)
-- 发布时间：2023/9/19 8:14:00
-- 窗口表勾选行边框着色
此主题相关图片如下：微信图片_20230919081159.png
tb.table.Grid.Rows(i).Style.Border.Color = Color.red
这样设置不行
-- 发布时间：2023/9/19 9:19:00
--
行默认是没有样式的，需要先添加一个
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表B").Grid.Styles.Add("样式1")
cs1.Border.Width = 1
cs1.Border.Color = Color.red
For Each r As Row In Tables("表B").GetCheckedRows
Tables("表B").Grid.Rows(r.Index + 1).Style = cs1
Next
-- 发布时间：2023/9/19 9:40:00
--
第一行上边框没有着色
此主题相关图片如下：微信图片_20230919093902.png
-- 发布时间：2023/9/19 9:49:00
--
把上一行的底部也设置一下
Dim cs2 As C1.Win.C1FlexGrid.CellStyle = Tables("表B").Grid.Styles.Add("样式2")
cs2.Border.Width = 1
cs2.Border.Color = Color.red
cs2.Border.Direction = C1FlexGrid.BorderDirEnum.Horizontal
Tables("表B").Grid.Rows(上一行索引).Style = cs2
-- 发布时间：2023/9/19 10:26:00
--
可以了，谢谢老师