vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Arbeitszeiten im Chart (Auswertungen) 
Autor: ERBRU
Datum: 14.01.19 20:05

Hallo Manfred X,

ich hatte ja angedeutet das ich mich noch mal Melde

dein Chart sieht nun so aus:
https://picload.org/view/dciodrig/14-01-_2019_19-31-39.png.html
     Dim dt As DataTable = AblageDB.Arbeitszeiten
        Dim year_selected As Integer = CInt(cboYear.SelectedItem)
        'Häufigkeitstabelle aus Datensätzen erstellen
        Dim dc As New DataTable
        With dc.Columns
            .Add("Month", GetType(String))
            .Add("Freq. done", GetType(Integer))
            .Add("Freq. todo", GetType(Integer))
        End With
 
        dc.PrimaryKey = {dc.Columns("Month")}
 
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim dr As DataRow = dt.Rows(i)
            If DirectCast(dr("Tag"), Date).Year = year_selected Then
                'sortierbarer Jahr-Monat-String
                Dim ym As String = _
                 dr.Field(Of Date)("Tag").Year.ToString & "-" & _
                 dr.Field(Of Date)("Tag").Month.ToString("00")
 
                Dim el As String = dr.Field(Of String)("Bemerkung")
 
                'Datensatzsuche nach Monat in Häufigkeitstabelle
                'gemäß Primärschlüssel     
                Dim dcr As DataRow = dc.Rows.Find({ym})
                If dcr Is Nothing Then
                    dcr = dc.Rows.Add({ym, 0, 0})
                End If
 
                Dim fcol As String
                If el = "Anwesend" Then
                    fcol = dc.Columns(1).ColumnName
                Else
                    fcol = dc.Columns(2).ColumnName
                End If
 
                'Häufigkeit bestimmen
                dcr(fcol) = CInt(dcr(fcol)) + 1
            End If
        Next i
 
        Dim bs As New BindingSource With {.DataSource = dc}
        bs.Sort = "Month ASC"
 
        'Chart für Häufigkeiten erstellen
 
        End With
mein aktueller Stand gefällt mir noch nicht aber so ähnlch soll es mal aussehen:
https://picload.org/view/dciodrir/14-01-_2019_19-22-41.png.html
wie kann das mit obigen Code erreicht werden?
meinen Code kann ich aufgrund der "größe" hier nicht ablegen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Arbeitszeiten im Chart (Auswertungen)1.256ERBRU09.12.18 11:32
Re: Arbeitszeiten im Chart (Auswertungen)475ERBRU16.12.18 10:35
Re: Arbeitszeiten im Chart (Auswertungen)479Manfred X17.12.18 13:48
Re: Arbeitszeiten im Chart (Auswertungen)471ERBRU17.12.18 14:36
Re: Arbeitszeiten im Chart (Auswertungen)541Manfred X17.12.18 21:49
Re: Arbeitszeiten im Chart (Auswertungen)470ERBRU18.12.18 08:50
Re: Arbeitszeiten im Chart (Auswertungen)469Manfred X18.12.18 09:25
Re: Arbeitszeiten im Chart (Auswertungen)463ERBRU18.12.18 13:10
Re: Arbeitszeiten im Chart (Auswertungen)475Manfred X18.12.18 20:34
Re: Arbeitszeiten im Chart (Auswertungen)456ERBRU18.12.18 21:46
Re: Arbeitszeiten im Chart (Auswertungen)599ERBRU14.01.19 20:05
Re: Arbeitszeiten im Chart (Auswertungen)445ERBRU15.01.19 06:42
Re: Arbeitszeiten im Chart (Auswertungen)474ERBRU16.01.19 12:59

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-2024 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