Dim t As Table = Tables("表A") For Each r As Row In t.Rows Select Case r("第一列") Case "11" Dim cr1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("a") cr1.BackColor = Color.White cr1.ForeColor = Color.Red t.Grid.SetCellStyle(r.Index+t.HeaderRows, 2, cr1) End Select Next
加好友 
发短信
Post By：2019/5/5 14:26:00 [显示全部帖子]
