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

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

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

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