Statistik

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • hoffe sehr es kann mir da jemand helfen
    die Statisik ermitteln ich so: der ich nun um Meldungstext ergänzen möchte 4 Bauteil in 3 Fahrzeugen betroffen

    mein Programm ist keine Datenbank, wer da rein schauen möchte kein Thema

    Vbnet-Quellcode

    1. Private Sub txtStatistik_Click(sender As Object, e As EventArgs) _
    2. Handles txtStatistik.Click
    3. Dim foundrowsEinzelkiste() As DataRow
    4. foundrowsEinzelkiste = dt1.Select("Status='Behälter'")
    5. Dim Einzelkistenanzahl As Integer = foundrowsEinzelkiste.Count
    6. Dim foundrowsMehrfachkisteLinks() As DataRow
    7. foundrowsMehrfachkisteLinks = dt1.Select("Status='Bauteil Links'")
    8. Dim MehrfachkistenanzahlLinks As Integer = foundrowsMehrfachkisteLinks.Count
    9. Dim foundrowsMehrfachkisteRechts() As DataRow
    10. foundrowsMehrfachkisteRechts = dt1.Select("Status='Bauteil Rechts'")
    11. Dim MehrfachkistenanzahlRechts As Integer = foundrowsMehrfachkisteRechts.Count
    12. Dim Mehrfachkistengesamtanzahl As Integer = MehrfachkistenanzahlLinks + MehrfachkistenanzahlRechts
    13. Dim Gesamtanzahl As Integer = dt1.Rows.Count
    14. Dim Meldungstext As String = "Statistik:"
    15. Meldungstext = Meldungstext & vbCrLf & "Gesamtanzahl Datensätze: " & Gesamtanzahl
    16. Meldungstext = Meldungstext & vbCrLf & "Behälter: " & Einzelkistenanzahl
    17. Meldungstext = Meldungstext & vbCrLf & "Bauteile Gesamt: " & Mehrfachkistengesamtanzahl
    18. Meldungstext = Meldungstext & vbCrLf & "Bauteil Links: " & MehrfachkistenanzahlLinks
    19. Meldungstext = Meldungstext & vbCrLf & "Bauteil Rechts: " & MehrfachkistenanzahlRechts
    20. MessageBox.Show(Meldungstext, "Auswertung:")
    21. End Sub
    Alles anzeigen




    18-06-_2017_09-54-25.png evtl wird es hiermit deutlicher.18-06-_2017_12-45-34.png
    Lg :thumbsup:
    Menorca03

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Menorca03 ()

  • möchtest du dein "Meldungstext" in einer eigenen form/panel angezeigt haben oder was möchtest du genau machen?


    Als kleiner tipp zum Thema String und für neue Zeile verwende Environment.NewLine ist die saubere lösung ^^

    Vbnet-Quellcode

    1. Dim aString As String = "A"
    2. Dim bString As String = "B"
    3. Dim cString As String = "C"
    4. Dim dString As String = "D"
    5. Dim myString As String
    6. ' myString = "ABCD"
    7. myString = String.Concat(aString, bString, cString, dString)
  • Danke werde ich berücksichtigen den Tip
    das in eine Extra Form tabelarisch zum drucken wäre Super
    Lösung:

    Vbnet-Quellcode

    1. 'Statistik
    2. Dim AnzahlBehälter As Integer = 0
    3. Dim AnzahlMehrfachkisteLinks As Integer = 0
    4. Dim AnzahlMehrfachkisteRechts As Integer = 0
    5. Dim AnzahlFahrgestellnummern As Integer = 0
    6. Dim expression As String
    7. expression = "Status = 'Behälter'"
    8. Dim foundRowsBH() As DataRow
    9. foundRowsBH = dt1.Select(expression)
    10. AnzahlBehälter = UBound(foundRowsBH) + 1
    11. expression = "Status = 'Bauteil Links'"
    12. Dim foundRowsML() As DataRow
    13. foundRowsML = dt1.Select(expression)
    14. AnzahlMehrfachkisteLinks = UBound(foundRowsML) + 1
    15. expression = "Status = 'Bauteil Rechts'"
    16. Dim foundRowsMR() As DataRow
    17. foundRowsMR = dt1.Select(expression)
    18. AnzahlMehrfachkisteRechts = UBound(foundRowsMR) + 1
    19. Dim fahrgestelldt As DataTable = dt1.DefaultView.ToTable(True, _
    20. "Fahrgestellnummer")
    21. Dim foundrowsFahrgestellnummer() As DataRow
    22. foundrowsFahrgestellnummer = fahrgestelldt.Select("Fahrgestellnummer<>''")
    23. AnzahlFahrgestellnummern = foundrowsFahrgestellnummer.Count
    24. Dim Mehrfachkistengesamtanzahl As Integer = AnzahlMehrfachkisteLinks + AnzahlMehrfachkisteRechts
    25. Dim Gesamtanzahl As Integer = dt1.Rows.Count
    26. Dim Meldungstext As String = "Statistik:"
    27. Meldungstext = Meldungstext & vbCrLf & "Gesamtanzahl Datensätze: " & Gesamtanzahl
    28. Meldungstext = Meldungstext & vbCrLf & "Behälter: " & AnzahlBehälter
    29. Meldungstext = Meldungstext & vbCrLf & "Bauteile Gesamt: " & Mehrfachkistengesamtanzahl
    30. Meldungstext = Meldungstext & vbCrLf & "Bauteil Links: " & AnzahlMehrfachkisteLinks
    31. Meldungstext = Meldungstext & vbCrLf & "Bauteil Rechts: " & AnzahlMehrfachkisteRechts
    32. Meldungstext = Meldungstext & vbCrLf & "----------------"
    33. Meldungstext = Meldungstext & vbCrLf & "betroffene Fahrzeuge = " & AnzahlFahrgestellnummern
    34. MessageBox.Show(Meldungstext, "Auswertung:")
    Alles anzeigen
    Lg :thumbsup:
    Menorca03