自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了

共有2597人关注过本帖树形打印复制链接主题：自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了

zhuya820

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

等级：童狐帖子：243 积分：1819 威望：0 精华：0 注册：2016/1/21 12:44:00

自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了 发帖心情

Post By：2021/7/5 7:26:00 [只看该作者]

自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了

'自定义函数

Dim Str As String = "1" '值为：1

Functions.Execute("计算值",str) ’将值送入自定义函数

'自定义函数界面

Dim Festr As String = Args(0) ’ 值为：1

Festr = "1" & "x" '运算得到值为：1x

'完成运算

'回取数据

Args(0) = Festr ’回取数据值为：1x

'返回自定义函数引用界面

Functions.Execute("DN_Min",str) ’str = 1x

【以上方法可能这样简化取值，这样可以大大提高自定义函数的应用范围，谢谢，急用】

有点蓝

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

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

Post By：2021/7/5 8:41:00 [只看该作者]

自定义函数界面

Dim Festr As String = Args(0) ’ 值为：1

Festr = "1" & "x" '运算得到值为：1x

return Festr

调用

Dim Str As String = "1" '值为：1

Str = Functions.Execute("计算值",str) ’将值送入自定义函数

msgbox(Str )

主题：自定义函数可以在Dim Str As String = Args(0) 在计算完成后直接经 Args(0) 返回数据，实现一次操作，不用转中继内存读取了