主题：[求助]FOXTABLE能否对数据表作这样的合并

能否这样：定义单机量为正的行的位号列内容为集合（还是说每一行的就是1个集合？），先选定单机量为负的一行，然后在单机量为正的行中逐行判定是否contains其位号，是的话在集合中用remove删去该位号，否的话继续下一行，直到找到为止。

这个办法有可能实现吗？

做好例表，输点数据，传上来，让大家动手试试看看

还是没有什么头绪，现在想到一个笨办法，在做表1的时候，每一行只包含一个位号和一个单机量，如下图

此主题相关图片如下：qq1.png

这样就只需要比较位号列的内容是否一样了，如果一样，则同时删除这两行，只是最终又多了将相同代码行的单机量合并和位号内容合并的工作。

我想把表中位号相同的行删除，写了如下代码，应如何修改

Dim dr1,dr2 As DataRow
Dim drs As List(Of DataRow)
    dr1 = DataTables("表1").Find("单机量>0")
    dr2 = DataTables("表1").Find("单机量<0")
drs = DataTables("表1").Select(dr1("位号") = dr2("位号"))
DataTables("表1").DataRows(drs).Delete()

出现了如下错误

drs = DataTables("表1").Select("位号 = '" & dr1("位号") & "'"）

这行是什么意思，不是应该选出位号相同的行吗？而且运行起来还是有错误提示

按一楼的视图可以这样处理：  没有实例测试，不一定行····

Dim drs As List(Of DataRow)
drs = DataTables("表1").Select("[单机量] < 0 ")

if drs.count > 0 

For Each dr As DataRow In drs 

    Dim n As Integer = 0
    For i As Integer = 0 To dr("位号").split(" ").length-1  
        output.show(dr("位号").split(" ")(i))
        Dim drf As DataRow
        drf = DataTables("表1").Find("位号 like '*" & dr("位号").split(" ")(i) & "*' and 单机量 > 0 ")
        If drf IsNot Nothing
            drf("位号") = drf("位号").replace(dr("位号").split(" ")(i),"").trim()
            If n = 0
                drf("单机量") = drf("单机量") + dr("单机量")
            End If

        End If
        n = 1
    Next
Next
end if   ''''''

DataTables("表1").DeleteFor("[单机量] < 0 ")   ' *** 删除全部单机量小于0 行···

如果考虑到这时位号可能有两个空格，那么 drf("位号") = drf("位号").replace(dr("位号").split(" ")(i),"").trim() 改为：  drf("位号") = drf("位号").replace(dr("位号").split(" ")(i),"").trim().replace（"  ","")  放在适当的位置。

按楼主15楼的代码：改为：

Dim dr1,dr2 As DataRow

    dr1 = DataTables("表1").Find("单机量>0")
    dr2 = DataTables("表1").Find("单机量<0")

DataTables("表1").DataRows(Tables("表1").rows(dr2("_Identify")).Delete()