| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]为什么这段代码老是出错，之前没有出错过的 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148477) |
| -- 作者：zto001 -- 发布时间：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 -- 发布时间：2020/4/8 19:47:00 -- Args(0) 不知道变成了啥，不是空值也不知行也不是字符串 如果传递过去字符串、数字、空值， Args(0)都有，就是传递行过去没有
[此贴子已经被作者于2020/4/8 19:50:03编辑过]
|
| -- 作者：zto001 -- 发布时间：2020/4/8 20:20:00 -- 虽然不知道咋回事，但代码能执行了 |