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

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

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

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

点击浏览该文件:2.zip

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


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


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

 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

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

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

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

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

点击浏览该文件:g.foxdb

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

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

Dim t As Table = Tables("窗口1_Table1")
Dim _flex = t.grid
_flex.controls.clear
For Each dr As DataRow In DataTables("背景批注").Select("表名 = '" & t.name & "'")
    For Each c As String In dr("批注").split("|")
        Dim ary() = c.split(",")
        If c > "" Then
            Dim cell = _flex.GetCellRect(dr("行号"), t.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

 

1、坛主，我修改的代码在窗口副本表上面代码失效，怎么修改呢？

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

点击浏览该文件:g.foxdb

 

2、坛主的代码在窗口真表中，代码在我的项目里，系统菜单按钮报错（下图）问题出在哪里呢？

    简单的项目测试是没问题的

此主题相关图片如下：在窗口真表中，代码在系统菜单按钮报错.png

报错1： 左边4个批注窗口显示和关闭的按钮都没效，老师帮忙看看了

菜单上面的代码按钮，也用不了，报错如下图：

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


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