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

第1行和第4行：能看懂（代码、材料名称、规格型号等都一样），但是：第3行和第5行 好像没有规律了，是不是你输入错了？。

这样决不可能用代码能解决，还是手工入录吧····

你得要总结出规律来才行。

 

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

 

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()