- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 添加控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75865)
-- 发布时间：2015/10/16 9:39:00
-- 添加控件
增加一个窗口高级筛选，想在这个窗口实现以下功能：
1、打开窗口时能够自动加载已经增加过控件
2、增加控件，用于高级筛选；
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:产品3.zip |
-- 发布时间：2015/10/16 9:44:00
--
Dim body As object = e.Form.controls("pnl_body").panel1
body.addcontrol(ctl)
-- 发布时间：2015/10/16 9:48:00
--
筛选条件及表名在加载事件中怎么写呀
-- 发布时间：2015/10/16 9:50:00
--
1、去编写全局click事件；
2、判断每个按钮，然后写筛选代码；
3、如果要动态，可以考虑把代码保存在表里，然后动态编译，如
Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")
-- 发布时间：2015/10/16 10:03:00
--
我在项目中增加了一个表，表中有筛选条件一栏，能把筛选条件添加到控件的click事件中吗（动态的）？你在那个例子中给我做一个吗？帮助中也没有，真不知道该怎么下手。
-- 发布时间：2015/10/16 10:04:00
--
看4楼，查找出代码，然后执行，如
Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)" & vbcrlf
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")
-- 发布时间：2015/10/16 10:15:00
--
把这个代码写到表里吗
-- 发布时间：2015/10/16 10:17:00
--
比如把msgbox(123)写在表里
然后然后执行
Functions.remove("函数")
Dim Code As String
Code = 你的代码
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")
-- 发布时间：2015/10/16 10:27:00
--
把代码写入表中，其他的在那里写
-- 发布时间：2015/10/16 10:29:00
--
写在窗口的全局Click事件里面，判断控件的名字，查找到对应的代码，然后执行