[求助]为什么这段代码老是出错，之前没有出错过的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]为什么这段代码老是出错，之前没有出错过的

共有2794人关注过本帖树形打印复制链接主题：[求助]为什么这段代码老是出错，之前没有出错过的

zto001

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

等级：六尾狐帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00

[求助]为什么这段代码老是出错，之前没有出错过的 发帖心情

Post By：2020/4/8 19:45:00 [显示全部帖子]

For Each r As Row In Tables("订单详情").GetCheckedRows

MessageBox.Show(r("快递公司")) '正常

Try

If r("运单编号")="" Then

MessageBox.Show(r("快递公司")) '正常

Select Case r("快递公司")

Case "菜鸟中通","菜鸟邮政","菜鸟韵达","菜鸟圆通"

MessageBox.Show(r("快递公司")) '正常

错误=错误 & vbcrlf & Functions.Execute("取单菜鸟",r) '出错

自定义函数

Dim 当前行 As Row = Args(0) '出错没这行

Dim 错误 As String

请问下是哪里有问题？之前的代码能执行，这个也没改过代码，老是出错。怎么执行个自定义函数，这行就没了？

zto001

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

等级：六尾狐帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2020/4/8 19:47:00 [显示全部帖子]

Args(0) 不知道变成了啥，不是空值也不知行也不是字符串

如果传递过去字符串、数字、空值， Args(0)都有，就是传递行过去没有

[此贴子已经被作者于2020/4/8 19:50:03编辑过]

zto001

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

等级：六尾狐帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2020/4/8 20:20:00 [显示全部帖子]

虽然不知道咋回事，但代码能执行了

主题：[求助]为什么这段代码老是出错，之前没有出错过的