- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何实现表内数据两两组合 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104926)
-- 发布时间：2017/8/8 16:00:00
-- [求助]如何实现表内数据两两组合
如何实现表内数据两两组合，并在新的表内展示所有组合的详情。例如我有这个表
此主题相关图片如下：qq图片20170808155349.png
要将里面的联络线路两两组合，存在另外一个表里，效果是这样
此主题相关图片如下：qq图片20170808155452.png
[此贴子已经被作者于2017/8/8 16:04:55编辑过]
-- 发布时间：2017/8/8 16:12:00
--
大神，求帮助
-- 发布时间：2017/8/8 16:46:00
--
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
-- 发布时间：2017/8/8 17:02:00
--
这段代码放在哪里呢？
-- 发布时间：2017/8/8 17:19:00
--
以下是引用qiuquanwen在2017/8/8 17:02:00的发言：
这段代码放在哪里呢？
单独做个按钮，执行即可。
-- 发布时间：2017/8/8 17:23:00
--
知道了，大神，但是还有一个条件没加上去，就是哪个是否联络线，只有在是否联络线那一列打了勾的才参与两两抽取
-- 发布时间：2017/8/8 17:24:00
--
还有就是，我每次执行的时候要先清空表B，就是我组合的结果的目标表
-- 发布时间：2017/8/8 17:33:00
--
还有，这是一列字符列，我要加多一列数字列，两两组合以后相加呢？还是我第一各截图里面的，我要线路名称放在一列，然后取多一列最大电流 把两个电流相加以后一样存在刚才的表里的另外一列，怎么实现呢？
-- 发布时间：2017/8/8 17:48:00
--
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