函数:Dim drs = args(0)
Dim ls = args(1)
Dim level = args(2)
If level = drs.count Then
output.show(vars("idx") & " - " & String.Join("|", ls.ToArray))
vars("idx") += 1
Else
For Each s As String In drs(level)("第二列").split(",")
Dim iscontains = False
For i As Integer = 0 To level-1
If ls(i) = s Then
iscontains = True
Exit For
End If
Next
If iscontains Then Continue For
If ls.count < level+1 Then
ls.add(s)
Else
ls(level) = s
End If
functions.Execute("loop", drs, ls, level+1)
Next
End If
调用
Dim dt As DataTable = DataTables("表A")
Dim drs = dt.Select("第二列 is not null")
Dim ls As new List(Of String)
vars("idx") = 1
Functions.Execute("loop", drs, ls, 0)