Private Sub SB_Stoerdauer_Maschine_fill()
        'DatagridView leeren DGV ist nicht gebunden
        dgv_SB_Stoerdauer_Maschine.Rows.Clear()
        'Abfrage typisierte Datatable Stoerungen
        Dim Abfrage = From Eintrag In TPMDB.Stoerungen
                      Where Eintrag.RowState <> DataRowState.Deleted
                      Order By Eintrag.OrtderStörung
                      Group By Art = Eintrag.MaschinenID Into UGruppe = Group
 
        Dim OrtderStoerung As String
        Dim ArtderStoerung As String
        Dim Stoerdauer As Double
        Dim D_von, D_bis As Date
 
        Dim ue As StoerungenRow
        For Each Reihe In Abfrage
            ue = Reihe.UGruppe.First
 
            D_von = (From drv In Reihe.UGruppe Select drv.Eintrag).Min
            D_bis = (From drv In Reihe.UGruppe Select drv.Eintrag).Max
 
            Dim rowMaschine = TPMDB.Stoerungen.First(Function(f) f.ID = _
              ue.MaschinenID)
            If Not rowMaschine Is Nothing Then
                OrtderStoerung = rowMaschine.OrtderStörung
                ArtderStoerung = rowMaschine.ArtderStörung
                Stoerdauer = Reihe.UGruppe.Sum(Function(f) f.Stoerdauer)
 
                dgv_SB_Stoerdauer_Maschine.Rows.Add({ue.MaschinenID, _
                  ue.OrtderStörung, Reihe.UGruppe.Count, Stoerdauer, D_von, _
                  D_bis})
            End If
        Next
    End Sub

Zitat:

Wie dabei Angaben zum Ort der Störung und zur Dauer der Störung einzubeziehen sind, kann ich nicht beurteilen (Stacked-Bars?).

Zitat:

Ich schlage die Durchführung einer Clusteranalyse aller Störungs-Datzensätze vor. Dadurch können Häufungen von Störungs-Konstellationen ermittelt werden.

 With dt.Columns
      .Add("ID", GetType(Integer))
      .Add("Störung Zeit", GetType(Date))
      .Add("Störung Ort", GetType(String))
      .Add("Störung Dauer", GetType(Integer))
      .Add("Störung Art", GetType(Integer))
      .Add("Maschine ID", GetType(Integer))
 End With

 Private Function GetFreq1(ByVal week As Integer, _
        year As Integer, masch As Integer) As DataTable
 
     Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
 
     Dim q = From row As DataRow In dt
           Let wk As Integer = _
             cal.GetWeekOfYear(row.Field(Of Date)("Störung Zeit"), _
             Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
           Where year = row.Field(Of Date)("Störung Zeit").Year _
             AndAlso wk = week _
             AndAlso row.Field(Of Integer)("Maschine ID") = masch
           Group By art = row.Field(Of Integer)("Störung Art") Into Count()
 
     Dim df As New DataTable
     df.Columns.Add("Störung Art") : df.Columns.Add("Count")
 
     For Each el In q
        df.Rows.Add(el.art, el.Count)
     Next el
 
     Return df
End Function

 'Columns Bezeichnung aus meiner typisierten Datatable 'Stoerungen'
 
        With dt.Columns
            .Add("ID", GetType(Integer))
            .Add("Eintrag", GetType(Date))
            .Add("OrtderStöerung", GetType(String))
            .Add("Stördauer", GetType(Integer))
            .Add("ArtderStörung", GetType(String))
            .Add("MaschinenID", GetType(Integer))
        End With

   Private Function GetFreq1(ByVal week As Integer, _
       year As Integer, masch As Integer) As DataTable
 
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of Integer)("ArtderStörung") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count")
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Return df
    End Function

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles _
  Button1.Click
        GetFreq1(3, 2017, 2)
    End Sub
    Private Function GetFreq1(ByVal week As Integer, _
      year As Integer, masch As Integer) As DataTable
        Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("ArtderStörung") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count")
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        DataGridView1.DataSource = bs
 
 
        Return df
    End Function

Private Function GetErrorsInWeeks(year As Integer, masch As Integer, _
                             mininterval As Integer) As DataTable
 
    Dim cal As Globalization.Calendar = _
    Globalization.CultureInfo.CurrentCulture.Calendar
 
    Dim q = From row As DataRow In dt.AsEnumerable
      Where IsFullRow(row) AndAlso _
        row.Field(Of Date)("Störung Zeit").Year = year
        Let wk As Integer = _
              cal.GetWeekOfYear(row.Field(Of Date)("Störung Zeit"), _
              Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday), _
        art As String = row.Field(Of String)("Störung Art"), _
        minint As Boolean = _
            row.Field(Of Integer)("Störung Dauer") >= mininterval
      Group By wk, art, minint Into Count()
      Order By wk, art, minint
 
    Dim df As New DataTable
    With df.Columns
       .Add("Woche in " & year.ToString)
       .Add("Störung Art")
       .Add(mininterval.ToString & " Min. überschritten?", GetType(Boolean))
       .Add("Häufigkeit", GetType(Integer))
    End With
 
    For Each el In q
       df.Rows.Add(el.wk, el.art, el.minint, el.Count)
    Next el
    Return df
End Function
 
 
Private Function IsFullRow(row As DataRow) As Boolean
     'Filtert Zeilen mit fehlenden Werten
     For i As Integer = 0 To row.ItemArray.Length - 1
        If IsDBNull(row(i)) Then Return False
     Next i
     Return True
End Function

AndAlso _
            row.Field(Of Integer)("MaschinenID") = masch

 Private Function GetErrorsInWeeks(year As Integer, masch As Integer, _
                             mininterval As Integer) As DataTable
        Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt.AsEnumerable
          Where IsFullRow(row) AndAlso _
            row.Field(Of Date)("Eintrag").Year = year AndAlso _
            row.Field(Of Integer)("MaschinenID") = masch
            Let wk As Integer = _
                  cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                  Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday), _
            art As String = row.Field(Of String)("ArtderStörung"), _
            minint As Boolean = _
                row.Field(Of Integer)("Stoerdauer") >= mininterval
          Group By wk, art, minint Into Count()
          Order By wk, art, minint
 
        Dim df As New DataTable
        With df.Columns
            .Add("Woche in " & year.ToString)
            .Add("Art der Störung")
            .Add(mininterval.ToString & " Min. überschritten?", GetType( _
              Boolean))
            .Add("Häufigkeit", GetType(Integer))
        End With

jetzt zu einer gewählten Maschine:
 
Woche 
in 2017 | ArtderStörung |       10 Min 
                                überschritten? | Häufigkeit
3              Mechanik         nein             2
3              SPS              nein             1
3              SPS              ja               1
4              Mechanik         nein             1
4              Mechanik         ja               4

EALA FREYA FRESENA

Zitat:

erstelle bei Deinen Datenquellen eine neue Abfrage, aus welcher Du die entsprechende DataTable zur Anzeige per DataGridView generierst...

  Private Sub btn_Stoerdaten_Auswerten_Click(sender As Object, e As EventArgs) _
        Handles btn_Stoerdaten_Auswerten.Click
        If BS_SB_Stoerungen_TypRow Is Nothing Then Return
        'Variabeln
        Dim Grenzwert As Integer = CInt(nud_Ziel_Stoerdauer.Value)
        Dim year_selected As Integer = CInt(cboYear.SelectedItem)
        Dim masch_selected As Integer = CInt(cbx_Maschine.SelectedValue)
        'Funktion aufrufen
        GetErrorsInWeeks(year_selected, masch_selected, Grenzwert)
    End Sub
    Private Function GetErrorsInWeeks(year As Integer, masch As Integer, _
                               mininterval As Integer) As DataTable
 
        Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt.AsEnumerable
          Where IsFullRow(row) AndAlso _
            row.Field(Of Date)("Eintrag").Year = year AndAlso _
            row.Field(Of Integer)("MaschinenID") = masch
            Let wk As Integer = _
                  cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                  Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday), _
            art As String = row.Field(Of String)("ArtderStörung"), _
            minint As Boolean = _
                row.Field(Of Integer)("Stoerdauer") >= mininterval
          Group By wk, art, minint Into Count()
          Order By wk, art, minint
 
        Dim df As New DataTable
        With df.Columns
            .Add("Woche in " & year.ToString)
            .Add("Art der Störung")
            .Add(mininterval.ToString & " Min. überschritten?", GetType( _
              Boolean))
            .Add("Häufigkeit", GetType(Integer))
        End With
 
        For Each el In q
            df.Rows.Add(el.wk, el.art, el.minint, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        If bs.Count = 0 Then
            lbl_Stoerdatenanalyse_Info.Text = String.Concat(bs.Count & " keine" & _
              "Einträge gefunden").ToString
        Else
            lbl_Stoerdatenanalyse_Info.Text = String.Concat(bs.Count & "" & _
              "Einträge gefunden").ToString
        End If
 
        'Daten in der DGV anzeigen
        dgv_Stoerdatenanalyse_Grenzwert.DataSource = bs
        'Ende Auswertung
 
        Return df
    End Function
    Private Function IsFullRow(row As DataRow) As Boolean
        'Filtert Zeilen mit fehlenden Werten
        For i As Integer = 0 To row.ItemArray.Length - 1
            If IsDBNull(row(i)) Then Return False
        Next i
        Return True
    End Function

Private Function IsFullRow(row As DataRow) As Boolean
        'Filtert Zeilen mit fehlenden Werten
        For i As Integer = 0 To row.ItemArray.Length - 1
            If IsDBNull(row(i)) Then Return False
        Next i
        Return True
    End Function

 Private Function GetFreq1(ByVal week As Integer, _
       year As Integer, masch As Integer) As DataTable
        Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
           Globalization.CultureInfo.CurrentCulture.Calendar
 
 
        Dim q = From row As DataRow In dt
              Let wk As Integer = _
                cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
              Where year = row.Field(Of Date)("Eintrag").Year _
                AndAlso wk = week _
                AndAlso row.Field(Of Integer)("MaschinenID") = masch
              Group By art = row.Field(Of String)("ArtderStörung") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("ArtderStörung") : df.Columns.Add("Count")
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
Return df
End Function