主题：[求助]日期列怎么填充背景色

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

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

 

 

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

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

此主题相关图片如下：图.jpg

参考

 

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

 

特急  -65536

急  -13824

正在处理  -154

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

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

 

 

此主题相关图片如下：图.jpg

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

点击浏览该文件: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

完美解决，谢谢

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

此主题相关图片如下：捕获.jpg

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

点击浏览该文件:g.foxdb

Dim t As Table = Tables("导出这个表单元格颜色和批注")
Dim ids As String = DataTables("背景批注").GetComboListString("行号", "背景 like '%-256%'")
ids = "-1," & ids.replace("|", ",")
t.filter = "_Identify in (" & ids.trim(",") & ")"