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

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

重新执行代码

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(",") & ")"

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

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

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

 压缩项目即可

http://www.foxtable.com/webhelp/scr/0006.htm