主题：动态增加控件

你好，已经晚了，没有试完，还是不行，在产品表中已没有了load方式代码，还是在高级筛选关闭时提示同样的错误，不知道该怎么解决，例子已上传你看一下吧

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

点击浏览该文件:产品5.zip

窗口类型不要设置为主窗口

代码

 

If Typeof e.sender Is winform.Button Then
    If e.sender.name Like "关闭_*" Then
        Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
        e.Form.RemoveControl("t" & tab.SelectedPage.Name)
        tab.TabPages.Delete(tab.SelectedIndex)
    Else
        Dim dr As DataRow = DataTables("高级筛选").find("筛选名称= '" & e.sender.Name & "'")
        If dr IsNot Nothing Then
            Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
            Dim p As Winform.TabPage
            If tab.TabPages.contains(e.sender.name) = False Then
                p = tab.TabPages.Add(e.Sender.name, e.sender.Name)
                Dim tbl As WinForm.Table
                tbl = e.Form.CreateSQLQuery("t" & e.sender.name, "Select * F rom {订单} where 1=2","产品")
                tbl.SetBounds(10, 50, 600, 400)
                p.AddControl(tbl)
               
                Dim ctl =e.Form.createcontrol("关闭_" & e.sender.name,controltypeenum.button)
                ctl.text = "关闭"
                ctl.left = 0
                ctl.Top = 0
                ctl.font = new font("黑体",15)
                p.AddControl(ctl)
            Else
                p = tab.TabPages(e.sender.name)
            End If
            Functions.remove("函数")
            Dim Code As String
            Code = dr("筛选条件")
            Code = "Tables(""高级筛选_t" & e.sender.name & """).DataTable.Loadfilter = """ & dr("筛选条件") & """" & vbcrlf
            Code &= "Tables(""高级筛选_t" & e.sender.name & """).DataTable.Load"
            Functions.Add("函数",Code)
            Functions.Complie()
            Functions.Execute("函数")
            tab.SelectedPage = p
        End If
    End If
End If

红袍老师，代码换了还是不行，还是同样的问题，是否是这个窗口只要放在主窗口就会发生这样的问题呢

 

菜单事件SystemIdle事件的代码去掉。

会影响项目的执行吗

不会

好的，可以了，谢谢

菜单事件SystemIdle事件的代码去掉。去掉这些代码以后，有些功能就不能用了，比如在表中选择范围内数据自动计算并在右下角显示就不能用了，怎么办？想一下还有其他法没有了。