'Code Maßnahmen_prüfen
  'nicht mehr benötigte Maßnahmen löschen wenn Problem abgestellt wurde
        If BS_TPMMeldung_TypRow.erledigt = True Then
            entferne_Nicht_benötigte_Maßnahmen()
        End If

 Private Sub entferne_Nicht_benötigte_Maßnahmen()
        Dim abfr_MeldeID As Integer
        abfr_MeldeID = CInt(tbx_Meldung_ID.Text)
 
        Dim NL = Environment.NewLine
 
        Dim Abfrage = From Eintrag In BS_TPMMaßnahme_Liste
                      Where Eintrag.RowState <> DataRowState.Deleted _
                      AndAlso (Eintrag.TPMMeldungID = abfr_MeldeID) _
                      AndAlso (Eintrag.abgearbeitet = False) _
                      Select Eintrag
 
        If Abfrage.Count = 0 Then Exit Sub
 
        For Each Eintrag In Abfrage : Eintrag.Delete() : Next
 
        'Änderungen Speichern
        Me.Cursor = Cursors.WaitCursor
        Me.Validate()
        BS_TPMMaßnahme.EndEdit()
        dict_BS_Pos.Clear()
        dict_BS_Pos.Add(BS_TPMMaßnahme, BS_TPMMaßnahme.Position)
        mod_Saver.SaveDataset(Me.TPMDB, dict_BS_Pos, _
          TPMMaßnahmeTableAdapter.Adapter)
        Me.Cursor = Cursors.Default
 
        'Information zurückgeben an User
        MessageBox.Show(String.Concat("Problem wurde abgestellt. ", NL, _
                                      "nicht mehr benötigte Maßnahmen, ", NL, "" & _
                                      "wurden entfernt!"), _
                                      "Information-Meldung", _
                                      MessageBoxButtons.OK, _
                                      MessageBoxIcon.Information)
    End Sub