vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2017
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Statistik in Chart Diagramm 
Autor: ERBRU
Datum: 17.04.17 17:36

Hallo zusammen,

möchte eine Statistik auf eine Form ausgeben in Label oder DGV und als Diagramm in einem Chart anzeigen

der Code dafür ist Verbesserungsfähig ich denke da wahrscheinlich zu kompliziert.
Frage: wie bekomme ich das dann in ein Chart-Balkendiagramm angezeigt.

hoffe das jemand eine Idee hat, und das hier verstanden hat.
es gibt erledigte und offene Meldungen in der Tabelle TPMMeldung


 '--- Variabeln setzen
        Dim Statusabgearbeitet As Double
        Dim Statusnichtabgearbeitet As Double
        Dim Wert1 As System.Data.EnumerableRowCollection(Of TPMMeldungRow)
        Dim Wert2 As System.Data.EnumerableRowCollection(Of TPMMeldungRow)
 
        'Wert1 ermitteln
        Wert1 = From Reihe In Me.TPMDB.TPMMeldung
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                   Reihe.erledigt = True
     Select Reihe
        Dim anzahlWert1 As Integer = Wert1.Count
 
        'Wert2 ermitteln
        Wert2 = From Reihe In Me.TPMDB.TPMMeldung
        Where Reihe.RowState <> DataRowState.Deleted AndAlso _
        Reihe.erledigt = False
     Select Reihe
        Dim anzahlWert2 As Integer = Wert2.Count
 
 
 
        Dim Gesamtwert As Integer = anzahlWert1 + anzahlWert2
 
        '------ Prozent ausrechnen
        Statusabgearbeitet = anzahlWert1 / Gesamtwert * 100
        Statusnichtabgearbeitet = anzahlWert2 / Gesamtwert * 100
        '------- Anzeigen in Label auf der Form
        ''Label215.Text = String.Format("{0:0.00} %", Statusabgearbeitet) & "" & _
          "erl."
        ''Label216.Text = String.Format("{0:0.00} %", Statusnichtabgearbeitet) _
        & " i.B."
        ''Label217.Text = Gesamtwert.ToString & " Meld."
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neue Version! sevEingabe 3.0 (für VB6 und VBA)
Das Eingabe-Control der Superlative! Noch besser und noch leistungsfähiger!
Jetzt zum Einführungspreis       - Aktionspreis nur für kurze Zeit gültig -
 ThemaViews  AutorDatum
Statistik in Chart Diagramm556ERBRU17.04.17 17:36
Re: Statistik in Chart Diagramm298Manfred X17.04.17 18:59
Re: Statistik in Chart Diagramm292ERBRU17.04.17 19:21
Re: Statistik in Chart Diagramm304Manfred X17.04.17 22:39
Re: Statistik in Chart Diagramm270ERBRU18.04.17 06:28
Re: Statistik in Chart Diagramm262ERBRU18.04.17 11:15
Re: Statistik in Chart Diagramm268Manfred X18.04.17 12:16
Re: Statistik in Chart Diagramm259ERBRU18.04.17 13:39
Re: Statistik in Chart Diagramm260Manfred X18.04.17 14:04
Re: Statistik in Chart Diagramm259ERBRU18.04.17 15:44
Re: Statistik in Chart Diagramm262Manfred X18.04.17 16:07
Re: Statistik in Chart Diagramm251ERBRU18.04.17 18:34
Re: Statistik in Chart Diagramm250ERBRU20.04.17 18:36
Re: Statistik in Chart Diagramm261Manfred X20.04.17 19:35
Re: Statistik in Chart Diagramm252ERBRU21.04.17 06:03

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2017 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel