- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 单元格显示不同颜色 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94271)
-- 发布时间：2016/12/20 13:49:00
-- 单元格显示不同颜色
以前有个例子，是
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rtf列.table |
，那个是用鼠标设置，我想如何通过代码判断后，显示不同的颜色呢，请高手指教，这个点都不懂了，
比如：有效期是1年内的 就变色，
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rtf列.table |
Dim c1g As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
c1g.Cols("有效期").Editor = New zxbTableRTFCol()
AddHandler c1g.OwnerDrawCell, AddressOf _flex_OwnerDrawCell
-- 发布时间：2016/12/20 14:50:00
--
你用错了吧，直接用DrawCell就行了
-- 发布时间：2016/12/20 14:57:00
--
参考代码
Dim t As Table = Tables("表A")
Dim c1g As C1FlexGrid.C1FlexGrid = t.Grid
For Each r As Row In t.Rows
t.Position = r.Index
t.StartEditing
Dim obj = c1g.Cols("有效期").Editor
Dim ary() As String = obj.text.split(";")
Dim idx As Integer = 0
For Each s As String In ary
If s.contains("2017") Then
obj.Select(idx, s.length)
obj.SelectionColor = Color.Red
End If
idx += s.Length + 1
Next
Next