Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document

Public Class rptHostListe

    Public dt As DataTable
    Property DHCPAndrucken As Boolean = Nothing
    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

        txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
        txtIPAdresse.Text = Fields.Item("IPAdresse").Value
        txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
        txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
        txtType.Text = Class1.DBNull2emptyString(Fields.Item("Type").Value)
        txtQInfo.Text = Class1.DBNull2emptyString(Fields.Item("QINFO").Value)
        txtInfo.Text = Class1.DBNull2emptyString(Fields.Item("Info").Value)
        '  If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"

        counter = counter + 1

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

    End Sub

    Private Sub rptHostListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
        DataSource = dt
    End Sub
End Class