主题：添加控件

红色代码空格自己去掉

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

1、写Click事件。

2、筛选后，拷贝click事件里面的代码运行