以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于修改表行的样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60638)
--  作者：czy66ds
--  发布时间：2014/11/28 10:25:00
--  关于修改表行的样式
我想在对窗口表的行在循环过程中改变行的背景颜色，该如何做？下面代码没起作用：
For Each r In Tables("窗口1_Table1").Rows
r.DataRow.DataTable.SysStyles("currentrow").BackColor = Color.LawnGreen
next
（当然我是想按某种条件改变，这里省略了）
--  作者：Bin
--  发布时间：2014/11/28 10:27:00
--  
遍历过程中改变当前行的颜色吗?  
--  作者：czy66ds
--  发布时间：2014/11/28 10:29:00
--  
对
--  作者：Bin
--  发布时间：2014/11/28 10:30:00
--  
设置好当前行的颜色 
For Each r In Tables("窗口1_Table1").Rows
 Tables("窗口1_Table1").Position=r.index
next
--  作者：czy66ds
--  发布时间：2014/11/28 10:41:00
--  
这不是返回当前行的位置吗？
--  作者：Bin
--  发布时间：2014/11/28 10:44:00
--  
不是,记得设置正行突出.
--  作者：czy66ds
--  发布时间：2014/11/28 10:53:00
--  
也许我没说清楚，我是想在遍历过程中，将符合某种条件的某些（不是一行）行改变背景颜色。
--  作者：有点甜
--  发布时间：2014/11/28 10:57:00
--  
 

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

For i As Integer = 0 To t.Rows.Count - 1
    t.Grid.SetCellStyle(i + 1, 2, cs1)
Next

 
--  作者：Bin
--  发布时间：2014/11/28 10:58:00
--  
那你无需遍历,直接在DrawCell处理就OK了.