Files
WISAG_EBCreator/WISAG_PM_REPORT/XtraReport3.vb
2020-08-20 15:36:45 +02:00

9 lines
453 B
VB.net

Public Class XtraReport3
Private Sub GroupHeaderBand3_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles GroupHeaderBand3.BeforePrint, Detail.BeforePrint, GroupHeaderBand1.BeforePrint
Dim oGroupType As String = GetCurrentColumnValue("GroupType")
Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
If oGroupType = "HEAD" Then
e.Cancel = True
End If
End Sub
End Class