Private Sub Page_Loaded(sender As Object, e As RoutedEventArgs)
' SQLite データベースファイルをアプリの Assets から LocalFolder にコピーします。.FLXR レポート定義では、
' これを ?(SpecialFolder.SystemDefault) として参照できます。
' Data Source=?(SpecialFolder.SystemDefault)\C1NWind.db
' レポートの設計時は、?(SpecialFolder.SystemDefault) は Environment.SpecialFolder.MyDocuments を指します。したがって、
' レポートデータベースファイルを MyDocuments フォルダに置くと、レポートの設計とテスト実行に便利です。
Dim dbPath = Path.Combine(ApplicationData.Current.LocalFolder.Path, "C1NWind.db")
If Not File.Exists(dbPath) Then
File.Copy("Assets\C1NWind.db", dbPath)
End If
' レポートを作成してロードします。
Dim report As New C1FlexReport()
Using fs As Stream = File.OpenRead("Assets/ProductsUWP.flxr")
report.Load(fs, "ProductList")
End Using
' レポートをビューアの DocumentSource に割り当てます。レポートは、ビューアに表示されるときに
' 自動的に生成されます(デフォルトでは非同期)。
Me.flexViewer.DocumentSource = report
End Sub