主题：单元格显示不同颜色

参考代码

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