问Vb.net列表(共对象)具有在规则编号字段中具有相同值的对象条目。需要将这些对象合并为一个

EN

    Class myCustomList
    Property objectList As New List(Of mycustomobject)

    Class mycustomobject
        Property thisIsmyProp As String
    End Class


    Public Sub _add_object(objectToAdd As mycustomobject)
        For i = 0 To objectList.Count - 1
            If objectToAdd.thisIsmyProp = objectList(i).thisIsmyProp Then
                'this object exists... merge it in
                objectList(i) = objectToAdd
                Exit Sub
            End If
        Next

        'object was not found, add it..
        objectList.Add(objectToAdd)
    End Sub

End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim mylistOfObjects As New myCustomList

    Dim myNewObject As New myCustomList.mycustomobject
    myNewObject.thisIsmyProp = "12345"

    mylistOfObjects._add_object(myNewObject)

    myNewObject = New myCustomList.mycustomobject
    myNewObject.thisIsmyProp = "56789"

    mylistOfObjects._add_object(myNewObject)

    myNewObject = New myCustomList.mycustomobject
    myNewObject.thisIsmyProp = "12345"

    mylistOfObjects._add_object(myNewObject)

    Debug.Print(mylistOfObjects.objectList.Count)

End Sub