主题：添加控件

做了一个，不行呀，该怎么做呢，在例子里详细做一下吧

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

点击浏览该文件:产品3.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("筛选条件")
        Functions.Add("函数",Code)
        Functions.Complie()
        Functions.Execute("函数")
    End If
End If

这个可以了，但是筛选出来的只是已经加载的数据，没有加载的数据没有显示，另外我也想把筛选出来的数据显示到窗口table中

1、你代码写成

 

DataTables("订单").LoadFilter = "产品='PD05'"

DataTables("订单").Load

 

2、你可以弄一个窗口放入table控件，即可。

 

Code = Tables("高级筛选_table & n") = & " dr("筛选条件") "

点选择按钮，增加一个页面，增加一个table 把筛选的结果显示在新页面上，我写了一些代码，写不好，

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

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

Add(e.sender.Name , e.sender.Name ) 增加页面
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("高级筛选_e.sender.Name ) = & " dr("筛选条件") "
        Functions.Add("函数",Code)
        Functions.Complie()
        Functions.Execute("函数")
    End If
End If

但是这样做了还是不行

例子中的代码，打开窗口时会把指定表的所有数据都加载进来，这样可能会导致系统崩溃，怎么能初始的比较少，我把select 语句设为sel  ect * fr om {订单} whe re [_identify] is null 时，加载数据是少了，但是点按钮时窗口表什么都没有筛选出来，怎么能实现这两人个目的呢

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

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