- 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=44231)
-- 发布时间：2013/12/26 8:58:00
-- 这段代码，问题在那里？
在内部函数里做了一个函数，如下
Dim strSQL As String
For i As Integer =0 To 15
If args(i) Is Nothing Then
msgbox("没有了")
Exit For
Else
strSQL=strSQL & args(i) & ";"
msgbox(strSQL)
End If
Next
Return true
在命令窗口，做了如下调用
Functions.Execute("Trans","I","Love","You","For","Ever")
运行到Ever都没有问题，接下来空值就出错了，如下图
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2013/12/26 9:03:00
--
For i As Integer =0 To args.length-1
If args(i) Is Nothing Then
msgbox("没有了")
Exit For
Else
strSQL=strSQL & args(i) & ";"
msgbox(strSQL)
End If
Next
-- 发布时间：2013/12/26 9:18:00
--
For i As Integer =0 To args.length-1
这句有点看不太懂
-- 发布时间：2013/12/26 9:20:00
--
你循环 0-15 但是你args 如果没有16个 不就报错了吗?
-- 发布时间：2013/12/26 9:24:00
--
受教了，谢谢
-- 发布时间：2013/12/26 9:26:00
--
可以在执行函数代码那里用逗号（,）补齐