专家坐堂-[求助]二维数组的循环问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]二维数组的循环问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153443)

--  作者：dqlgood
--  发布时间：2020/8/11 10:45:00
--  [求助]二维数组的循环问题
如题：
Dim p0() As String = "A,B,C,D".split(",")
Dim p1() As String = "D,E,C,F".split(",")
Dim p2() As String = "H,I,J,K".split(",")

For i0 As Integer = 0 To 3
output.show(p0(i0))
Next

For i1 As Integer = 0 To 3
output.show(p1(i1))
Next

For i2 As Integer = 0 To 3
output.show(p2(i2))
Next

\'如何加一个循环,得出上面3个循环的结果?
For j As Integer = 0 To 2
Dim s As object = ???
For i As Integer = 0 To 3
output.show(s(i))
Next
Next

[此贴子已经被作者于2020/8/11 14:55:48编辑过]

--  作者：有点蓝
--  发布时间：2020/8/11 11:00:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080

Dim lst As new List(of String)
lst.AddRange("A,B,C,D".split(","))
lst.AddRange("D,E,C,F".split(","))
lst.AddRange("H,I,J,K".split(","))

For i1 As Integer = 0 To lst.count - 1
output.show(lst(i1))
Next

--  作者：dqlgood
--  发布时间：2020/8/11 15:26:00
--
谢谢老师指点！重新编译了一下，便于功能实现。

Dim Lst As New List(Of String)
Dim Arys() As String
Lst.Add( "A,B,C,D")
Lst.Add("D,E,C,F")
Lst.Add("H,I,J,K")
Arys = Lst.ToArray()
For Each nm As String In lst
Dim p() As String = nm.split(",")
For i As Integer = 0 To p.Length - 1
Output.Show(nm & "----" & p(i))
Next
Next