主题：添加控件

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

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