添加控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 添加控件

共有4418人关注过本帖树形打印复制链接主题：添加控件

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 9:44:00 [显示全部帖子]

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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("函数")

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 10:04:00 [显示全部帖子]

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

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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 10:17:00 [显示全部帖子]

比如把msgbox(123)写在表里

然后然后执行

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

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 10:29:00 [显示全部帖子]

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

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 11:12:00 [显示全部帖子]

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