以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义函数返回数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125790)

--  作者:fntfgz
--  发布时间:2018/10/7 11:28:00
--  自定义函数返回数组
我有一个自定义函数“处理院校名”
Dim str1 As String = Args(0)
Dim Values() As String
str1=StrToNarrow(str1.trim())
str1=str1.Replace(" ","")
Values = str1.split("(")
For Index As Integer = 0 To Values.Length - 1
Values(Index)=Values(Index).replace(")","")    
Next
Return values

我在程序中引用它


Dim yxs() As String
yxs()=Functions.Execute("处理院校名",dr("院校名称"))

提示出错,


图片点击可在新窗口打开查看此主题相关图片如下:360截图16171117103143123.png
图片点击可在新窗口打开查看


我怎么得到返回的数组值

--  作者:有点蓝
--  发布时间:2018/10/7 11:44:00
--  
yxs=Functions.Execute("处理院校名",dr("院校名称"))