主题：添加控件

增加一个窗口高级筛选，想在这个窗口实现以下功能：

1、打开窗口时能够自动加载已经增加过控件

2、增加控件，用于高级筛选；

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

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

Dim body As object = e.Form.controls("pnl_body").panel1
body.addcontrol(ctl)

筛选条件及表名在加载事件中怎么写呀

1、去编写全局click事件；

 

2、判断每个按钮，然后写筛选代码；

 

3、如果要动态，可以考虑把代码保存在表里，然后动态编译，如

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")

我在项目中增加了一个表，表中有筛选条件一栏，能把筛选条件添加到控件的click事件中吗（动态的）？你在那个例子中给我做一个吗？帮助中也没有，真不知道该怎么下手。

看4楼，查找出代码，然后执行，如

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")

把这个代码写到表里吗

 

比如把msgbox(123)写在表里

 

然后然后执行

 

Functions.remove("函数")
Dim Code As String
Code = 你的代码
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")

把代码写入表中，其他的在那里写

写在窗口的全局Click事件里面，判断控件的名字，查找到对应的代码，然后执行