- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [贴图][求助]最后一列为什么颜色没变 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80377)
-- 发布时间：2016/1/21 15:47:00
-- [贴图][求助]最后一列为什么颜色没变
代码如下：
Dim t As Table = Tables("主界面及功能并列窗口专用表")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
Dim cs2 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式2")
Dim cs3 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式3")
For i As Integer = 0 To 0
For j As Integer = 0 To t.cols.count - 1
If j = 0 Then
t.Grid.SetCellStyle(i, j, cs3)
Else
t.Grid.SetCellStyle(i, j, cs1)
End If
Next
Next
cs1.Border.Width = 3
cs1.Border.Color = Color.green
cs1.Border.Direction = 0
cs2.Border.Width = 3
cs2.Border.Color = Color.green
cs2.Border.Direction = 1
图片怎么上传呢？
[此贴子已经被作者于2016/1/21 15:50:51编辑过]
-- 发布时间：2016/1/21 15:53:00
--
改一下
For j As Integer = 0 To t.cols.count
-- 发布时间：2016/1/21 15:53:00
--
-- 发布时间：2016/1/21 15:55:00
--
看2楼
-- 发布时间：2016/1/21 15:58:00
-- 回复：（大红袍）改一下 For j As Integer =...
搞定，
谢谢