主题：请教一个排列组合的问题

Dim xhs As List(of String)  = DataTables("表A").GetUniqueValues("代码 Is Not Null","代码")
Dim css As List(of String)  = DataTables("表B").GetUniqueValues("参数 Is Not Null","参数")
For Each xh As String In xhs
    For Each cs As String In css
        Dim r As Row = Tables("表C").AddNew()
        r("型号") = xh & cs
    Next
Next

打开这个文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目69.rar

在命令窗口执行下面的代码：

Dim ss1 As List(of String)  = DataTables("表A").GetUniqueValues("第一列 Is Not Null","第一列")
Dim ss2 As List(of String)  = DataTables("表B").GetUniqueValues("第一列 Is Not Null","第一列")
Dim ss3 As List(of String)  = DataTables("表C").GetUniqueValues("第一列 Is Not Null","第一列")
For Each s1 As String In ss1
    For Each s2 As String In ss2
        For Each s3 As String In ss3
            output.show(s1 & "." & s2 & "." &  s3 )
        Next
    Next
Next