以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义函数如何返回嵌套的字典或数组？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139245)
--  作者：guosheng
--  发布时间：2019/8/8 18:55:00
--  自定义函数如何返回嵌套的字典或数组？
例如，返回 数组中嵌套字典，{字典1，字典2，……} 字典1是，key=101,value=\'张三\' 该如何实现啊？
--  作者：有点蓝
--  发布时间：2019/8/9 9:11:00
--  
没看懂，代码举例说明
--  作者：guosheng
--  发布时间：2019/8/9 9:29:00
--  

Dim Vals_r As New List(Of Integer)

Dim sd As Date = Args(0)


Dim ed As Date = Args(1)
Dim cc As Integer = Args(2)

……

 

Vals_r.add(Sum)
Vals_r.add(Sum1)
Return Vals_r

这个返回的Vals_r是个一维的数组，类似返回{1,2……}的一维数组的结构；怎么让返回两维或多维的数组啊？

类似返回{（1,2）,(3,4)……} 或者 {（1,2，5）,(3,4,6)……}

--  作者：有点蓝
--  发布时间：2019/8/9 10:09:00
--  
Vals_r是一个集合，不是数组。集合可以是任意类型的集合

Dim Vals_r As New List(Of List(Of Integer))
Dim Vals_r2 As New List(Of Integer)
Vals_r2.AddRange({1,2})
Vals_r.Add(Vals_r2)

Vals_r2 - New List(Of Integer)
Vals_r2.AddRange({13,4})
Vals_r.Add(Vals_r2)

return Vals_r