34 lines
1.3 KiB
VB.net
34 lines
1.3 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptHostCheckListe
|
|
|
|
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)
|
|
txtInfo.Text = ""
|
|
' 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 rptHostCheckListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
|
DataSource = dt
|
|
End Sub
|
|
End Class
|