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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何把函数的参数传入它调用的函数？

共有3129人关注过本帖树形打印复制链接主题：[求助]如何把函数的参数传入它调用的函数？

小美菜

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

加好友

发短信

等级：三尾狐帖子：647 积分：4909 威望：0 精华：0 注册：2016/1/16 22:42:00

[求助]如何把函数的参数传入它调用的函数？ 发帖心情

Post By：2020/12/23 8:44:00 [只看该作者]

我碰到一个函数传递问题，我调用了一个不定参数个数的内部函数A，在这个内部函数中又调用另外一个内部函数B，内部函数B的参数有时与A的参数一样有时增多或减少，如何实现这样的参数传递？

有点蓝

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

加好友

发短信

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

Post By：2020/12/23 8:50:00 [只看该作者]

比如

dim s1 as string = args(0)

dim s2 as string

if args.length > 1 then

s2 = args(1)

end if

dim s3 as string

if args.length > 2 then

s3 = args(2)

end if

if s2 > "" then

处理参数2的代码

end if

if s3 > "" then

处理参数3的代码

end if

小美菜

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

加好友

发短信

等级：三尾狐帖子：647 积分：4909 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2020/12/23 12:06:00 [只看该作者]

谢谢老师的讲解，可能是我表达不清。

Dim MainDc As Dictionary(Of String,Object)= Args(0)

If Args.Length < 2 Then Return False ’Args.Length 可能取值在 2~15之间，是不确定的

Functions.Execute("Fun九级"，Args) ‘也就是这个Args有时与传入的参数一样有时增多或减少

逛逛

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

加好友

发短信

等级：版主帖子：1693 积分：12129 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2020/12/23 12:12:00 [只看该作者]

你直接放在字典里传递不行吗？

小美菜

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

加好友

发短信

等级：三尾狐帖子：647 积分：4909 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2020/12/23 13:13:00 [只看该作者]

字典有字典的用处，其它数据转成字典再传，麻烦

有点蓝

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

加好友

发短信

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

Post By：2020/12/23 13:48:00 [只看该作者]

Functions.Execute("Fun九级"，Args) 这样直接使用就行呀，有什么问题？如果还有增加其它参数，直接加Functions.Execute("Fun九级"，Args,a,b,.....)

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

主题：[求助]如何把函数的参数传入它调用的函数？