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

老师，在表A的第一列 设为存颜色列，在表A DrawCell写入如下代码

If e.Row.IsNull("第一列") = False Then
    Dim n As String = "样式" & e.Row("_Identify")
    e.Table.DataTable.AddUserStyle(n, Color.FromARGB(e.Row("第一列")), Color.black)
    e.Table.DataTable.Styles(n).BackColor = Color.FromARGB(e.Row("第一列"))
    e.style = n
End If

设了一个窗口，用了控件ColorPicker1,确定按钮写入如下代码

CurrentTable.Current("第一列") = e.Form.Controls("ColorPicker1").Color.ToARGB' 共享方法
CurrentTable.Refresh

现在能实现自由绘制选定行的整行颜色，老师，如何实现自由选定单元格绘制背景颜色（字体依然是Black）