主题：[求助]日期填充颜色后，颜色和批注不显示问题

图2设置表日期列 自动填充颜色后，

图3效果变图2效果：  原背景和批注，消失，怎么回复原背景颜色显示和批注小红三角显示？

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

点击浏览该文件:2.zip

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


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


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

两者，是不能共存的。如果设置style，就不能画图。

 

改成不设置style，改成也直接画图。

 1、删了表属性style里面和自定义样式，不能返回显示之前的背景颜色显示，怎样返回之前的正常状态呢？

2、改成不设置style，改成也直接画图。怎么理解呢？
3、把颜色填充的代码（见下面）加到日期筛选里面，可以吗？
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 & ",-256|"
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
4、上面代码是否可以替换下面的style
If e.Col.Name = "方案_效果图方案_完成时间" Then
    If e.Row.IsNull("方案_效果图方案_完成时间") = False AndAlso (e.Row("方案_效果图方案_完成否") <> "已完成" Or e.Row("方案_效果图方案_完成否") Is Nothing) Then
        If e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(1) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(0)  Then
            e.Style = "今天到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(2) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(1)  Then
            e.Style = "明天到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(3) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(2)  Then
            e.Style = "后天到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(4) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(3)  Then
            e.Style = "四天后到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(5) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(4)  Then
            e.Style = "五天后到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(6) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(5)  Then
            e.Style = "六天后到期"
        ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today Then
            e.Style = "已过期"
        End If
    End If
End If

1、删除回复本来的drawcell事件代码；

 

2、和画标注、背景颜色一样，设置单元格的颜色；

 

3、不可以；

 

4、读懂画标注、画背景颜色的代码，自食其力，看不懂代码不要做这些功能 http://www.foxtable.com/webhelp/scr/1482.htm

 

狐表里面单元格的所有批注窗口，显示和关闭的代码怎么写呢？

 

无法理解你什么意思，上传实例说明。

批注窗口，打开和关闭显示的按钮，坛主，帮忙谢谢

此主题相关图片如下：效果.png

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

点击浏览该文件:g.foxdb

无法理解你的意思，你要打开哪个窗口？

 

foxtable里面设计的窗口是只能打开一个而不能打开多个的。

狐表单元格的批注，想全部显示和隐藏，像excle里面的效果

此主题相关图片如下：效果2.png

foxtable没有这种功能。

 

如果要做，就动态嵌入控件，参考代码

 

Dim _flex = CurrentTable.grid
_flex.controls.clear
For Each dr As DataRow In DataTables("背景批注").Select("表名 = '" & CurrentTable.name & "'")
    For Each c As String In dr("批注").split("|")
        Dim ary() = c.split(",")
        If c > "" Then
            Dim cell = _flex.GetCellRect(dr("行号"), CurrentTable.Cols(ary(0)).Index+1)
            Dim btn1 As new windows.Forms.label
            btn1.name = "btn" & dr("行号")
            btn1.text = ary(1)
            btn1.left = cell.x+cell.width-10
            btn1.top = cell.y+cell.height-10
            btn1.backcolor = Color.yellow
            btn1.width = 100
            btn1.height = 100
            _flex.controls.add(btn1)
        End If
    Next
Next