/
MainWindow.xaml.vb
34 lines (29 loc) · 1.49 KB
/
MainWindow.xaml.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
Imports System.ComponentModel
Imports System.Windows
Imports DevExpress.DataAccess.ObjectBinding
Imports DevExpress.Xpf.Reports.UserDesigner
Imports DevExpress.XtraReports.UI
Namespace WpfApplication1
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Partial Public Class MainWindow
Inherits Window
Public Sub New()
Me.InitializeComponent()
Me.designer.OpenDocument(New XtraReport1())
End Sub
Private Sub ReplaceDataSource_ItemClick(ByVal sender As Object, ByVal e As DevExpress.Xpf.Bars.ItemClickEventArgs)
Dim newDataSource = New ObjectDataSource With {.DataSource = GetType(MyDataClass)}
Dim report As XtraReport = Me.designer.ActiveDocument.Diagram.RootItem.XRObject
Dim oldDataSource = TryCast(report.DataSource, IComponent)
Me.designer.ActiveDocument.MakeChanges(Sub(changes)
If oldDataSource IsNot Nothing Then
changes.RemoveItem(oldDataSource)
End If
changes.AddItem(newDataSource)
changes.SetProperty(report, Function(x) x.DataSource, newDataSource)
End Sub)
End Sub
End Class
End Namespace