Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Statistik drucken
Autor: Chief
Datum: 17.05.05 20:14
Hallo, was ist die beste Möglichkeit eine Statistik auf Papier zu drucken? Die Statistik wird über ein Usercontrol angezeigt. Der Code in Form5(Statistik): Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' erstelle UserControl Dim uc As New Statistik With uc .Location = New Point(0, 0) .Size = New Size(Me.Width, Me.Height - 100) .Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top End With Me.Controls.Add(uc) ' erstelle collection für Daten Dim col As New Collection Dim dv As DataView = clsForm.F3.DV1 Dim dt As DataTable = dv.Table Dim filter As String = dv.RowFilter If Len(filter) > 0 Then filter &= " AND " Dim ges As Integer = dv.Count Dim n As Integer 'Spalte Geschlecht = Typ String, Männlich n = dt.Compute("Count(Geschlecht)", filter & "Geschlecht='männlich'") col.Add(New StatistikElement(1, "männlich", n / ges, Color.Red)) 'Spalte Geschlecht = Typ String, Weiblich n = dt.Compute("Count(Geschlecht)", filter & "Geschlecht='weiblich'") col.Add(New StatistikElement(2, "weiblich", n / ges, Color.Pink)) 'Spalte Test1 = Typ Boolean n = dt.Compute("Count(Test1)", filter & "Test1=0") col.Add(New StatistikElement(3, "Test1", n / ges, Color.Green)) 'Spalte Test2 = Typ Boolean n = dt.Compute("Count(Test2)", filter & "Test2=0") col.Add(New StatistikElement(4, "Test2", n / ges, Color.Blue)) 'Spalte bezahlt = Typ Boolean n = dt.Compute("Count(bezahlt)", filter & "bezahlt=0") col.Add(New StatistikElement(5, "bezahlt", n / ges, Color.Yellow)) 'Spalte nicht bezahlt = Typ Boolean n = dt.Compute("Count([nicht bezahlt])", filter & "[nicht bezahlt]=0") col.Add(New StatistikElement(6, "nicht bezahlt", n / ges, Color.Brown)) ' binde User control uc.DataSource = col 'Zeigt das aktuelle Systemdatum in der Statusbar an Me.StatusBarPanel3.Text = DateTime.Now.Date End Sub VB@rchiv its the Best

Statistik drucken	868	Chief	17.05.05 20:14
Re: Statistik drucken	704	Chief	17.05.05 20:19
Re: Statistik drucken	621	Chief	18.05.05 16:13
Re: Statistik drucken	601	Chief	18.05.05 17:32
Re: Problem gelöst	572	Chief	18.05.05 20:13

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übersicht

Suchen