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

老师，在表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）

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

求助

按上楼代码写入，为什么颜色不显示？

没看到项目有什么和2楼有关的用法。请上传可以测试的实例

前面上传的项目有误，已把2楼的代码写入， 自由选定单元格绘制背景颜色不显示，求助

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单元格自由填色的问题.foxdb

 

drawcell里用的是2楼的第一段代码，不是第二段。第二段是放到按钮的

填充颜色导出excle后颜色偏差很大，求助

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单元格自由填色的问题 -2.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出全周期计划后台表.xls