/
ProductsReport.vb
35 lines (33 loc) · 1.31 KB
/
ProductsReport.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports DevExpress.XtraReports.UI
Namespace ProcessDuplicatesTarget
Partial Public Class ProductsReport
Inherits DevExpress.XtraReports.UI.XtraReport
Public Sub New()
InitializeComponent()
End Sub
' Display duplicate values.
Public Sub NoMerge()
Me.ShowPreviewDialog()
End Sub
' Merge duplicate values of the XRControl.Tag property.
Public Sub MergeByTag()
Dim expressionBinding As New ExpressionBinding("BeforePrint", "Tag", "ToStr([SupplierID]) + '_' + ToStr([CategoryID])")
Me.xrTableCell2.ExpressionBindings.Add(expressionBinding)
Me.xrTableCell2.ProcessDuplicatesMode = ProcessDuplicatesMode.Merge
Me.xrTableCell2.ProcessDuplicatesTarget = DevExpress.XtraReports.UI.ProcessDuplicatesTarget.Tag
Me.ShowPreviewDialog()
End Sub
' Merge duplicate values of a report control's data.
Public Sub MergeByValue()
Dim expressionBinding As New ExpressionBinding("BeforePrint", "Text", "[CategoryName]")
Me.xrTableCell2.ExpressionBindings.Add(expressionBinding)
Me.xrTableCell2.ProcessDuplicatesMode = ProcessDuplicatesMode.Merge
Me.xrTableCell2.ProcessDuplicatesTarget = DevExpress.XtraReports.UI.ProcessDuplicatesTarget.Value
Me.ShowPreviewDialog()
End Sub
End Class
End Namespace