如果层数是固定的,建议直接写多层循环,否则,就需要写成递归。下面代码,是三层的,看懂代码
Dim dt As DataTable = DataTables("表A")
Dim drs = dt.Select("第二列 is not null")
Dim s0 As String = drs(0)("第二列")
For Each ss0 As String In s0.split(",")
Dim s1 As String = drs(1)("第二列")
Dim ls As new List(Of String)
ls.add("")
ls.add("")
ls.add("")
ls(0) = ss0
For Each ss1 As String In s1.split(",")
If ls.contains(ss1) Then Continue For
ls(1) = ss1
Dim s2 As String = drs(2)("第二列")
For Each ss2 As String In s2.split(",")
If ls.contains(ss2) Then Continue For
ls(2)= ss2
output.show(String.Join("|", ls.ToArray))
Next
Next
Next