主题：[求助]如何实现表内数据两两组合

如何实现表内数据两两组合，并在新的表内展示所有组合的详情。例如我有这个表
此主题相关图片如下：qq图片20170808155349.png

要将里面的联络线路两两组合，存在另外一个表里，效果是这样
此主题相关图片如下：qq图片20170808155452.png

大神，求帮助

dim drs = datatables("表A").select("")
For i as integer = 0 to drs.count-1
    For j As Integer = i+1 To drs.count-1
        Dim ndr As DataRow = DataTables("表B").addnew
        ndr("第一列") = drs(i)("第一列") & "," & drs(j)("第一列")
    Next
Next

这段代码放在哪里呢？

 

 

单独做个按钮，执行即可。

知道了，大神，但是还有一个条件没加上去，就是哪个是否联络线，只有在是否联络线那一列打了勾的才参与两两抽取

还有就是，我每次执行的时候要先清空表B，就是我组合的结果的目标表

还有，这是一列字符列，我要加多一列数字列，两两组合以后相加呢？还是我第一各截图里面的，我要线路名称放在一列，然后取多一列最大电流 把两个电流相加以后一样存在刚才的表里的另外一列，怎么实现呢？

 

 

Dim drs = DataTables("表A").Select("")
For i As Integer = 0 To drs.count-1
    For j As Integer = i+1 To drs.count-1
        Dim ndr As DataRow = DataTables("表B").addnew
        ndr("第一列") = drs(i)("第一列") & "," & drs(j)("第一列")
        ndr("最大电流") = drs(i)("最大电流") + drs(j)("最大电流")
    Next
Next