如何实现字符列、日期列，按钮填充颜色时，原字符、日期不变

不会被自定义背景颜色名称，替换？

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

点击浏览该文件:管理项目5.table

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100242&skin=0

特急  -65536

急  -13824

正在处理  -154

3个颜色按钮代码，求帮助

怎么把颜色的数字，写入颜色控件？这样可以定义想要的颜色对单元格填充，不用下拉选取（效率不高且容易出错）

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

点击浏览该文件:fxz.foxdb

参考代码

Dim str As String = CurrentTable.Current("第一列")
Dim nstr As String = ""
Dim cname As String = CurrentTable.cols(CurrentTable.ColSel).name
nstr &= cname & ":-65536|"
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

颜色备注的列，移到 背景批注 的表了，点击按钮的代码不会改，还要辛苦坛主帮忙解决

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

点击浏览该文件:g.foxdb

Dim t As Table = Tables("背景批注")
Dim dr = t.DataTable.Find("表名=\'" & CurrentTable.name & "\' and 行号 = \'" & CurrentTable.current("_Identify") & "\'")
If dr Is Nothing Then
    dr = t.DataTable.addnew
    dr("表名") = CurrentTable.name
    dr("行号") = CurrentTable.Current("_Identify")
End If
Dim str As String = dr("背景")
Dim nstr As String = ""
Dim cname As String = CurrentTable.cols(CurrentTable.ColSel).name
nstr &= cname & ",-65536|"
For Each s As String In str.Split("|")
    If s.Contains(cname) = False Then
        nstr &= s & "|"
    End If
Next
dr("背景") = nstr.trim("|")
CurrentTable.Refresh
t.refresh

当前列中，背景色值按钮，筛选出，当前列的行（等于背景色值按钮中的颜色的行） 

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

点击浏览该文件:g.foxdb