Foxtable(狐表)用户栏目专家坐堂 → [分享]精简调用自定义函数语句


  共有12383人关注过本帖树形打印复制链接

主题:[分享]精简调用自定义函数语句

帅哥哟,离线,有人找我吗?
qtcks
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
[分享]精简调用自定义函数语句  发帖心情 Post By:2010/7/19 13:31:00 [只看该作者]

由于调用自定义函数时,需要输入Functions.Execute命令,

本人英语不行,老是记不住这句命令,我通过系统全局代码来精简调用命令。

 

1、系统全局代码

Public Function FE ( _
 Fun_name As String, _
 ParamArray args As Object() _
) As String
Functions.Execute(Fun_name,args )
End Function

2、调用的时候只需要输入FE("函数名","参数")就ok了。


 回到顶部
帅哥哟,离线,有人找我吗?
pyh6918
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1128 积分:11041 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2010/7/19 13:41:00 [只看该作者]

不错,谢谢分享。别有后遗症。。。

 回到顶部
帅哥哟,离线,有人找我吗?
qtcks
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/7/19 16:05:00 [只看该作者]

有BUG

1、系统全局代码

Public Function FE ( _
 Fun_name As String, _
 ParamArray args As Object() _
) As String
Return Functions.Execute(Fun_name,args )
End Function


 回到顶部