GrapeCity.ActiveReports.Design.Win.v9 アセンブリ > GrapeCity.ActiveReports.Design 名前空間 > Designer クラス > LoadReport メソッド : LoadReport(FileInfo) メソッド |
/// <summary> /// OpenReportFile - レポートRPXファイルを選択して開くための[ファイルを開く]ダイアログボックスを開く /// </summary> private void OpenReportFile() { try { this.dlgOpenFile.Filter = "ActiveReport Report Design (RPX) (*.rpx)|*.rpx"; this.dlgOpenFile.FilterIndex = 2; this.dlgOpenFile.RestoreDirectory = true ; this.dlgOpenFile.DefaultExt = ".rpx"; if(dlgOpenFile.ShowDialog() == DialogResult.OK) { this._alreadySaved = true; //開いたレポートをそれの最近のキャッシュに追加する if(System.IO.File.Exists(Application.StartupPath + @"\Settings\recent.xml")) { DataSet _reportsDS = new DataSet(); _reportsDS.Locale = CultureInfo.InvariantCulture; _reportsDS.ReadXml(Application.StartupPath + @"\Settings\recent.xml"); DataTable _reportsTable = _reportsDS.Tables["Reports"]; _reportsTable.Locale = CultureInfo.InvariantCulture; //行を作成する DataRow _rowReports = _reportsTable.NewRow(); object [] _myArray = new object[2]; this._savedPath = this.dlgOpenFile.FileName; _myArray[0] = this.dlgOpenFile.FileName; _myArray[1] = System.DateTime.Now; _rowReports.ItemArray = _myArray; _reportsTable.Rows.Add(_rowReports); _reportsDS.WriteXml(Application.StartupPath + @"\Settings\recent.xml", XmlWriteMode.WriteSchema); } //レポートを読み込む this.ardMain.LoadReport(this._savedPath); } //デザイナーのコンボボックスを埋める this.FillCombo(); } catch(System.IO.IOException ex) { MessageBox.Show(ex.ToString()); } }
'OpenReportFile - レポートRPXファイルを選択して開くための[ファイルを開く]ダイアログボックスを開く Private Sub OpenReportFile() Try Me.dlgOpenFile.Filter = "ActiveReport Report Design (RPX) (*.rpx)|*.rpx" Me.dlgOpenFile.FilterIndex = 2 Me.dlgOpenFile.RestoreDirectory = True Me.dlgOpenFile.DefaultExt = ".rpx" If dlgOpenFile.ShowDialog() = DialogResult.OK Then Me._alreadySaved = True '開いたレポートをそれの最近のキャッシュに追加する If System.IO.File.Exists((Application.StartupPath + "\Settings\recent.xml")) Then Dim _reportsDS As New DataSet() _reportsDS.Locale = CultureInfo.InvariantCulture _reportsDS.ReadXml((Application.StartupPath + "\Settings\recent.xml")) Dim _reportsTable As DataTable = _reportsDS.Tables("Reports") _reportsTable.Locale = CultureInfo.InvariantCulture '行を作成する Dim _rowReports As DataRow = _reportsTable.NewRow() Dim _myArray(1) As Object Me._savedPath = Me.dlgOpenFile.FileName _myArray(0) = Me.dlgOpenFile.FileName _myArray(1) = System.DateTime.Now _rowReports.ItemArray = _myArray _reportsTable.Rows.Add(_rowReports) _reportsDS.WriteXml(Application.StartupPath + "\Settings\recent.xml", XmlWriteMode.WriteSchema) End If 'レポートを読み込む Me.ardMain.LoadReport(Me._savedPath) End If 'デザイナーのコンボボックスを埋める Me.FillCombo() Catch ex As System.IO.IOException MessageBox.Show(ex.ToString()) End Try End Sub 'OpenReportFile