[求助]动态函数使用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态函数使用

共有1984人关注过本帖树形打印复制链接主题：[求助]动态函数使用

xongyijd

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

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

[求助]动态函数使用 发帖心情

Post By：2020/6/10 23:24:00 [只看该作者]

那位大师帮助我修改一下,实在写不好了,动态函数套在自定义函数中,代码保存在表中,代码中引用事件的e参数,比喻在表中写e.Forms.Close()显示未找到类型“StripItemEventArgs”的公共成员“Forms”而直接在函数中写能正常执行,这是什么原因?
代码如下:

Dim e As object = args(0)

Dim Code As String = "Dim e As object = args(0)" & vbcrlf
Dim dr As DataRow = DataTables("菜单控件").Find("名称 = '" & e.StripItem.Name & "'And 父级 = '工具栏1'")
If dr IsNot Nothing Then
    Code = Code & dr("执行代码") & vbcrlf
    Functions.Remove("ExecuteMenu")
    Functions.Add("ExecuteMenu", Code)
    Functions.Complie()
    Functions.Execute("ExecuteMenu",e)
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/11 8:41:00 [只看该作者]

请给出相关的前后文，比如dr("执行代码")里是什么代码？上面的代码又是在哪里调用的，使用了什么代码调用？

控件的e参数只有form属性，没有forms属性

xongyijd

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

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2020/6/11 21:03:00 [只看该作者]

已经搞好了,还是我的逻辑思维没有考虑清楚,

下一主题 >> << 上一主题

主题：[求助]动态函数使用