[已解决][求助]自定义函数_调用的目标发生异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [已解决][求助]自定义函数_调用的目标发生异常

共有5847人关注过本帖树形打印复制链接主题：[已解决][求助]自定义函数_调用的目标发生异常

rightinfo2014

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

等级：幼狐帖子：115 积分：1034 威望：0 精华：0 注册：2015/6/19 10:37:00

[已解决][求助]自定义函数_调用的目标发生异常 发帖心情

Post By：2022/9/11 16:00:00 [显示全部帖子]

各位大师们好！

我自定义的函数，请详见附件实例，不知为什么会出现下图的错误提示？

此主题相关图片如下：运行错误提示1.png

求助，帮忙指点问题出在哪里，感恩感恩图片点击可在新窗口打开查看

相关实例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例.rar

实例开发者密码为：k，就一个小写字母

[此贴子已经被作者于2022/9/11 16:53:32编辑过]

rightinfo2014

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

等级：幼狐帖子：115 积分：1034 威望：0 精华：0 注册：2015/6/19 10:37:00

Post By：2022/9/11 16:16:00 [显示全部帖子]

试着将内部自定义函数改为如下：

Dim nm主表 As String = Args(0)

If Forms("共有窗口-快捷导航").Opened Then

Dim frm快捷导航 As WinForm.Form = Forms("共有窗口-快捷导航")

Dim nm按钮名称 As String

MessageBox.Show(1)

Dim txt主表 As String

If Tables.Contains(nm主表) Then

txt主表 = Tables(nm主表).Text

并调用函数时的参数相应转为string字符型，也同样报错。

实在不知问题出在哪里？？？

rightinfo2014

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

等级：幼狐帖子：115 积分：1034 威望：0 精华：0 注册：2015/6/19 10:37:00

Post By：2022/9/11 16:53:00 [显示全部帖子]

解决了，我发现犯了个低级错误，text不是table的标题属性，引用table的标题，代码应改为：

table.datatable.caption

不过还是要感谢各位过往的提携，才有本人一点点的进步，多谢！！！

主题：[已解决][求助]自定义函数_调用的目标发生异常