Imports System Imports System.Collections Imports System.Collections.Generic Imports System.ComponentModel Imports System.Windows.Forms Imports System.Drawing Imports Microsoft.VisualBasic Imports FastReport Imports FastReport.Data Imports FastReport.Dialog Imports FastReport.Table Imports FastReport.Barcode Imports FastReport.Utils Namespace FastReport Public Class ReportScript Private Sub Text3_BeforePrint(ByVal sender As object, ByVal e As EventArgs) dim s as string s="-" if trim(CType(Report.GetColumnValue("Daten.Ausbildungsbemerkung"), String))<>"" then s=Trim(CType(Report.GetColumnValue("Daten.Ausbildungsbemerkung"), String)) if trim(CType(Report.GetColumnValue("Daten.Schuelerbemerkung"), String))<>"" then s=trim(CType(Report.GetColumnValue("Daten.Schuelerbemerkung"), String)) text3.Text=s if s<>"-" then text3.TextColor=color.red Text14.TextColor=Color.red End Sub Private Sub Text13_BeforePrint(ByVal sender As object, ByVal e As EventArgs) dim s as String s="-" if trim(CType(Report.GetColumnValue("Daten.Ausbildungsstandort"), String))<>"" then s=Trim(CType(Report.GetColumnValue("Daten.Ausbildungsstandort"), String)) if trim(CType(Report.GetColumnValue("Daten.Standortbemerkung"), String))<>"" then s=trim(CType(Report.GetColumnValue("Daten.Standortbemerkung"), String)) text13.Text=s if s<>"-" then text13.TextColor=color.red End Sub Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs) Picture1.ImageLocation= CType(Report.GetParameterValue("URL"), String) End Sub End Class End Namespace