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

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

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

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

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

3、不可以；

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

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

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

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

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

1、

Dim t As Table = Tables("窗口1_Table1")
Dim _flex = t.grid
_flex.controls.clear
For Each dr As DataRow In DataTables("背景批注").Select("表名 = '" & t.datatable.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

2、出错的例子做一个发上来测试。