主题：组装共通品合并加工

现出现异常的是如红框部分

红框部分是正确的，代码所产生的效果是不全

Dim t As Table = Tables("加工排产")
Dim dic As new Dictionary(of String, String)
For i As Integer = 0 To t.Rows.count - 1 Step 2
    Dim r1 As Row = t.Rows(i)
    Dim r2 As Row = t.Rows(i+1)
    Dim key As String = r1("部组名") & "|" & r1("部品id") & "|" & r1("调度")
    If dic.ContainsKey(key) = False Then
        dic.Add(key, r1("_Identify") & "," & r2("_Identify"))
    End If
Next
Dim idxs As String = ""
For Each key As String In dic.Keys
    idxs &= dic(key) & ","
Next
'msgbox(idxs)
t.filter = "_Identify in (" & idxs.trim(",") & ")"

老师，上楼 红色的代码是正确的吗，我替换后，还是出现16楼的错误，没有出现21楼的正确结果，不知怎么回事？

 

撤销所有筛选/或者重新打开项目。

 

重新执行代码

老师，刚刚照着实验了一下，合并后行数，和数量都正确了，

Dim t As Table = Tables("加工排产")
Dim dic As new Dictionary(of String, String)
For i As Integer = 0 To t.Rows.count - 1 Step 2
    Dim r1 As Row = t.Rows(i)
    Dim r2 As Row = t.Rows(i+1)
    Dim key As String = r1("部组名") & "|" & r1("部品id") & "|" & r1("调度")
    If dic.ContainsKey(key) = False Then
        dic.Add(key, r1("_Identify") & "," & r2("_Identify"))
        r1("最终良品数") += t.compute("sum(最终良品数)", "类别 = '计划' and isnull(部组名,'')+'|'+isnull(部品id,'')+'|'+isnull(调度,'') = '" & key & "' and _Identify <> " & r1("_Identify"))
    End If
Next
Dim idxs As String = ""
For Each key As String In dic.Keys
    idxs &= dic(key) & ","
Next
'msgbox(idxs)
t.filter = "_Identify in (" & idxs.trim(",") & ")"

谢谢老师，这个数量也出来了，

 这样容易出问题，合并那一行的良品数有可能在多次计算后出现差错，最终数据无法还原。

 

 需要添加辅助列，存放良品数。这样无论怎么更改数据，都不至于数据丢失。

 

 这样，你合并的时候，显示一列，取消合并的时候，显示另一列，就好了。

 

老师，还是在这个项目中，加工排产表中，曾经达到过252列，之后再插入列，出现以下错误：