主题：添加控件

If Typeof e.sender Is winform.Button Then
    Dim dr As DataRow = DataTables("高级筛选").find("筛选名称= '" & e.sender.Name & "'")
    If dr IsNot Nothing Then
        Functions.remove("函数")
        Dim Code As String
        'code = "Dim tab As winform.tabcontrol = e.Form.controls("tabcontrol1")" & vbcrlf
        code = code &  "If tab.tapages(e.sender.Name) IsNot Nothing Then" & vbcrlf
        code = code & "tab.selectedpage = tab.tabpages(e.sender.Name)
        code = code &  "Else" & vbcrlf
        code = code & "tab.TabPages.add(e.sender.Name,e.sender.Name)" & vbcrlf
        'code = code & "Tables("高级筛选_& e.sender.Name").filter=" & vbcrlf
        'Code = code & " dr("筛选条件") " & vbcrlf
        Functions.Add("函数",Code)
        Functions.Complie()
        Functions.Execute("函数")
    End If
End If

 

上述不能保存，只注释了部分才能保存

这些代码单独写啊，不需要写在code里面啊

 

Dim tab As winform.tabcontrol = e.Form.controls("tabcontrol1")

另外看20楼啊

20楼的我看了，还有两个问题：1、打开窗口时，会先把订单表的全部数据都加载到高级筛选_table1中，数据多时会造成系统崩溃；2、希望单击控件实现筛选时，首先判断是否有控件筛选的表，如果有则选择该页面，如果没有则新增加一个页面和table,把筛选出来的数据显示在新增加的页面上。

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

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

If Typeof e.sender Is winform.Button Then
    Dim dr As DataRow = DataTables("高级筛选").find("筛选名称= '" & e.sender.Name & "'")
    If dr IsNot Nothing Then
        Functions.remove("函数")
        Dim Code As String
        Code = dr("筛选条件")
        Code = "Tables(""高级筛选_Table1"").filter = """ & dr("筛选条件") & """"
        Functions.Add("函数",Code)
        Functions.Complie()
        Functions.Execute("函数")
    End If
End If
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If tab.TabPages(e.sender.Name) IsNot Nothing Then
    tab.SelectedPage = tab.TabPages(e.sender.Name)
Else
    Dim Name As String = e.sender.Name
    tab.TabPages.Add(name,name)
    Dim pb = tab.BaseControl
    Forms(Name).OPEN(-1000,-1500)
    Forms(Name).BaseForm.TopLevel = False
    Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
    PB.TabPages(name).Controls.Clear
    PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
    tab.SelectedPage = tab.TabPages(name)
End If

把代码做了如上更改，还是不行呀，看一下有什么问题吗

 

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

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

在代码中新增了几行代码，想实现在添加筛选表的同时，在页面中增加一个按钮，用于关于此页面

Dim b As Winform.button

b = e.Form.CreateControl("关闭", ControlTypeEnum.button)

  b.top = 10
            b.left = 10
            e.Form.AddControl(b)

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

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

红色代码空格自己去掉

 

If Typeof e.sender Is winform.Button Then
    If e.sender.name Like "关闭_*" Then
        Dim tab As WinForm.TabControl = e.Form.controls("tabcontrol1")
        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(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(""高级筛选_" & e.sender.name & """).DataTable.Loadfilter = """ & dr("筛选条件") & """" & vbcrlf
            Code &= "Tables(""高级筛选_" & e.sender.name & """).DataTable.Load"
            Functions.Add("函数",Code)
            Functions.Complie()
            Functions.Execute("函数")
            tab.SelectedPage = p
        End If
    End If
End If