[求助]带数组的自定义函数出现错误，不知原因 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自己编了一个一维排序的自定义函数，如果不带参数，直接用数组赋值，在命令窗口执行，没有问题，可是一旦写成自定义函数，则运行报错。

自定义函数如下：

Dim arr() As Single=Args(0)

Dim lst As new List(of Single)

lst.addrange(arr)

output.clear

Dim fx As Boolean=Args(1)

Dim dtb As new DataTableBuilder("一维排序临时表")

dtb.adddef("新序号",Gettype(Integer))

dtb.adddef("原序号",Gettype(Integer))

dtb.adddef("值",Gettype(Single))

dtb.Build()

With Tables("一维排序临时表")

For i As Integer=0 To lst.count-1

.ADDnew()

.rows(i)("原序号")=i

.rows(i)("值")=lst(i)

If fx=False Then

.sort="值"

Else

.sort="值 DESC"

End If

For j As Integer=0 To lst.count-1

.rows(j)("新序号")=j

lst(j)=.rows(j)("值")

output.show(j &","& lst(j) & Vbcrlf)

End With

Return lst

运行报错：

此主题相关图片如下：截图00.png

主题：[求助]带数组的自定义函数出现错误，不知原因