ActiveReports
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user