Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class rptLeer
    Public dt As DataTable
    Dim HP As Integer = 0
    Public counter As Integer = 0
    Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format

        For Each txtbox As SectionReportModel.TextBox In Sections(1).Controls
            txtbox.Text = Class1.DBNull2emptyString(Fields.Item(txtbox.Name).Value)
        Next

        counter = counter + 1
        If counter Mod 2 = 0 Then
            Detail.BackColor = Color.Transparent
        Else
            Detail.BackColor = AltColor
        End If

    End Sub

    Private Sub rptLeer_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        DataSource = dt
        Dim ColSize As Size
        For i = 0 To (Fields.Count - 1)

            Select Case Fields(i).Name
                Case "FQDN"
                    ColSize = New Size(1.5, 5)
                Case "IPAdresse"
                    ColSize = New Size(1, 5)
                Case "Modell"
                    ColSize = New Size(1.2, 5)
                Case "Standort"
                    ColSize = New Size(1.9, 5)
                Case "Type"
                    ColSize = New Size(1, 5)
                Case "QINFO"
                    ColSize = New Size(1.7, 5)
            End Select


            Dim tb As New GrapeCity.ActiveReports.SectionReportModel.TextBox
            tb.Size = ColSize 'New System.Drawing.Size(2, 5)
            tb.Location = New Point(ReturnHP(i, tb.Size.Width, False), 0)
            tb.Name = Fields(i).Name
            tb.Text = Fields(i).Name
            tb.Height = 0.3
            Me.Sections(1).Controls.Add(tb)

            Dim tb2 As New GrapeCity.ActiveReports.SectionReportModel.TextBox
            tb2.Size = ColSize 'New System.Drawing.Size(2, 5)
            tb2.Location = New Point(ReturnHP(i, tb2.Size.Width, True), 0)
            tb2.Font = New Font(tb2.Font.FontFamily, 9, FontStyle.Bold)
            tb2.Name = Fields(i).Name & "_Oben"
            tb2.Text = Fields(i).Name
            Me.Sections(0).Controls.Add(tb2)
        Next
    End Sub
    Function ReturnHP(i As Integer, HL As Integer, addieren As Boolean)
        If i = 0 Then
            If addieren = True Then HP = HP + HL
            Return 0
            Exit Function
        End If
        Dim ret As Integer = HP
        If addieren = True Then HP = HP + HL
        Return ret
    End Function
End Class