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

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、

 

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、出错的例子做一个发上来测试。

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

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

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


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

Dim t As Table = Tables("自己的项目_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 i As Integer = t.FindRow("_Identify = " & dr("行号"))
            msgbox(i)
            If i >= 0 Then
                Dim cell = _flex.GetCellRect(i+t.HeaderRows, t.Cols(ary(0)).Index+1)
                Dim btn1 As new windows.Forms.label
                btn1.name = "btn" & i+1
                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
        End If
    Next
Next