ActiveReports

This commit is contained in:
2025-08-14 11:32:13 +02:00
parent 0ca060b7c0
commit 93fd68c058
35 changed files with 8571 additions and 11127 deletions

View File

@@ -15,9 +15,9 @@ Public Class rptAuswertung
Dim subrpt_Auswertung As New subrptAuswertung
subrpt_Auswertung.whatshallwedo = whatshallwedo
Me.subrpt.Report = subrpt_Auswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
End If