以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求简单写法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68594)
--  作者：yongxuanchen
--  发布时间：2015/5/20 23:41:00
--  求简单写法

Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表B").grid.Styles.Add("cs1")
cs1.Font = new Font("宋体", 12)
cs1.Backcolor = Color.Red
Tables("表B").Grid.SetCellStyle(0, Tables("表B").Cols("A").Index+1, cs1)
Tables("表B").Grid.SetCellStyle(0, Tables("表B").Cols("C").Index+1, cs1)

 

如果我表中10列都是变成这样的样式，有没有简单的表示方式，因为每一列都要写一句Tables("表B").Grid.SetCellStyle(0, Tables("表B").Cols("C").Index+1, cs1)

这样的代码，对于一个大表来说太麻烦了，求简单方法，谢谢
--  作者：sloyy
--  发布时间：2015/5/21 0:12:00
--  
用循环呀
--  作者：Bin
--  发布时间：2015/5/21 8:36:00
--  
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表B").grid.Styles.Add("cs1")
for  i as integer to Tables("表B").Cols.count-1
cs1.Font = new Font("宋体", 12)
cs1.Backcolor = Color.Red
Tables("表B").Grid.SetCellStyle(0, i+1, cs1) 
next
--  作者：yongxuanchen
--  发布时间：2015/5/21 20:20:00
--  这句话编译不通过
for  i as integer to Tables("表B").Cols.count-1这句话编译不通过。
--  作者：大红袍
--  发布时间：2015/5/21 20:59:00
--  

Dim cls() As String = {"第一列", "第五列"}

Dim cs1 As C1.Win.C1FlexGrid.CellStyle = Tables("表A").grid.Styles.Add("cs1")
cs1.Font = new Font("宋体", 15)
cs1.Backcolor = Color.Red
For Each c As String In cls
    Tables("表A").Grid.SetCellStyle(0, Tables("表A").Cols(c).Index+1, cs1)
Next

Tables("表A").AutoSizeHeaderRow