' ============================================================================== ' 模块名称: cProcessor_AppendOnly ' 模块类别: 类模块 ' 模块职责: 通用追加策略。适用于接头、封口片、机芯、盘止钉等。 ' 逻辑描述: 遍历所有数据,凡是名称与目标匹配的变种,一律注入新条件。 ' ============================================================================== Option Explicit Implements IModuleProcessor Private Sub IModuleProcessor_ProcessSpec( _ ByRef allBOMs As Collection, _ ByVal targetItemName As String, _ ByVal paramName As String, _ ByVal newValue As String, _ ByRef engine As cConditionEngine) Dim rowObj As cBOMRow ' 遍历整个库 For Each rowObj In allBOMs ' 只要名称完全匹配 (忽略大小写进行比对) If StrComp(rowObj.ItemName, targetItemName, vbTextCompare) = 0 Then ' 利用引擎进行外科手术级别的追加 rowObj.Condition = engine.InjectOr(rowObj.Condition, paramName, newValue) End If Next rowObj End Sub