Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.XtraReports
Namespace ReportWpfDemo
''' <summary>
''' Interaction logic for InvoiceReportModule.xaml
''' </summary>
Partial Public Class Invoice
Inherits ReportModuleBase
Public Sub New()
InitializeComponent()
End Sub
End Class
Public Class InvoiceViewModel
Inherits ReportModuleViewModelBase
Protected Overrides Function CreateReport() As IReport
Return New XtraReportsDemos.NorthwindTraders.InvoiceReport()
End Function
Protected Overrides Sub FillData(ByVal dataFiller As DataFiller)
dataFiller.Fill(CType(ReportPreviewModel.Report, XtraReportsDemos.NorthwindTraders.InvoiceReport))
End Sub
End Class
End Namespace