Private Sub Abfrage2()
 
        Dim AnzahlMehrfachkisteLinks As Integer = 0
        Dim AnzahlMehrfachkisteRechts As Integer = 0
        Dim AnzahlFahrgestellnummern As Integer = 0
 
        Dim expression As String
 
        expression = "Status = 'Mehrfachkiste Links'"
        Dim foundRowsML() As DataRow
        foundRowsML = dt1.Select(expression)
        AnzahlMehrfachkisteLinks = UBound(foundRowsML) + 1
 
        expression = "Status = 'Mehrfachkiste Rechts'"
        Dim foundRowsMR() As DataRow
        foundRowsMR = dt1.Select(expression)
        AnzahlMehrfachkisteRechts = UBound(foundRowsMR) + 1
 
        Dim fahrgestelldt As DataTable = dt1.DefaultView.ToTable(True, _
          "Fahrgestellnummer")
        Dim foundrowsFahrgestellnummer() As DataRow
        foundrowsFahrgestellnummer = fahrgestelldt.Select("Fahrgestellnummer<>''")
        AnzahlFahrgestellnummern = foundrowsFahrgestellnummer.Count
 
        MessageBox.Show("Anzahl Mehrfachkiste Links: " & _
          AnzahlMehrfachkisteLinks & vbCrLf & "Anzahl Mehrfachkiste Rechts: " & _
          AnzahlMehrfachkisteRechts & vbCrLf & "Anzahl Fahrgestellnummern: " & _
          AnzahlFahrgestellnummern)
 
    End Sub

EALA FREYA FRESENA