主题：单元格自由填色的问题

mark 单元格样式

If e.Row.IsNull("第一列") = False Then
    Dim n As String = "样式" & e.Row("_Identify") & "_" & e.Col.name
    Dim ary() As String = e.Row("第一列").split("|")
    For Each s As String In ary
        Dim a() As String = s.split(":")
        If a(0) = e.Col.name Then
            e.Table.DataTable.AddUserStyle(n, Color.FromARGB(a(1)), Color.black)
            e.Table.DataTable.Styles(n).BackColor = Color.FromARGB(a(1))
            e.style = n
            Exit For
        End If
    Next
End If

---------------

Dim str As String = CurrentTable.Current("第一列")
Dim nstr As String = ""
Dim cname As String = CurrentTable.cols(CurrentTable.ColSel).name
nstr &= cname & ":" & e.Form.Controls("ColorPicker1").Color.ToARGB & "|"
For Each s As String In str.Split("|")
    If s.Contains(cname) = False Then
        nstr &= s & "|"
    End If
Next
CurrentTable.Current("第一列") = nstr.trim("|")
CurrentTable.Refresh