主题：排班（遍历）方法思路求教

如果层数是固定的，建议直接写多层循环，否则，就需要写成递归。下面代码，是三层的，看懂代码

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

loop函数

Dim drs = args(0)
Dim ls = args(1)
Dim level = args(2)
If level = drs.count Then
    output.show(String.Join("|", ls.ToArray))
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)
Functions.Execute("loop", drs, ls, 0)

你做个例子上来测试吧。

你可以做一个按钮，终止程序的。按钮代码

vars("结束") = true

然后其余代码改一下