PowerTools ActiveReports for .NET 9.0J
SaveReport(FileInfo) メソッド
使用例 

レポートレイアウトが含まれるファイルオブジェクトを指定します。
レポートXMLレイアウトを指定したファイル名に保存します。
構文
'宣言
 
Public Overloads Sub SaveReport( _
   ByVal file As FileInfo _
) 
public void SaveReport( 
   FileInfo file
)

パラメータ

file
レポートレイアウトが含まれるファイルオブジェクトを指定します。
使用例
/// <summary>
/// SaveReportFile - レポートをRPXファイルに保存するために、[ファイルを保存する]ダイアログを開く
/// </summary>
private void SaveReportFile()
{
    //レポートは一度保存されている場合、すでに有効なパスが用意されているので、SaveReportを呼び出す。
    if(this._alreadySaved)
    {
        this.ardMain.SaveReport(this._savedPath);
    }
    else
    {
        //保存するファイルとパスを取得するための[保存]ダイアログを開く
        this.dlgSaveFile.Filter = "ActiveReport Report Design (RPX) (*.rpx)|*.rpx";
        this.dlgSaveFile.FileName = "Report.rpx";
        this.dlgSaveFile.FilterIndex = 2;
        this.dlgSaveFile.RestoreDirectory = true ;
        this.dlgSaveFile.DefaultExt = ".rpx";
    
        if(dlgSaveFile.ShowDialog() == DialogResult.OK)
        {
            //保存された新しいレポートを最近のドキュメントキャッシュに追加する
            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.dlgSaveFile.FileName;
                _myArray[0] = this.dlgSaveFile.FileName;
                _myArray[1] = System.DateTime.Now;
                _rowReports.ItemArray = _myArray;
                _reportsTable.Rows.Add(_rowReports);
                _reportsDS.WriteXml(Application.StartupPath + @"\Settings\recent.xml", XmlWriteMode.WriteSchema);
            }
            this.ardMain.SaveReport(this._savedPath);
        }
    }
}
'SaveReportFile - レポートをRPXファイルに保存するために、[ファイルを保存する]ダイアログを開く
Private Sub SaveReportFile()
    'レポートは一度保存されている場合、すでに有効なパスが用意されているので、SaveReportを呼び出す。
    If Me._alreadySaved Then
        Me.ardMain.SaveReport(Me._savedPath)
    Else
        '保存するファイルとパスを取得するための[保存]ダイアログを開く
        Me.dlgSaveFile.Filter = "ActiveReport Report Design (RPX) (*.rpx)|*.rpx"
        Me.dlgSaveFile.FileName = "Report.rpx"
        Me.dlgSaveFile.FilterIndex = 2
        Me.dlgSaveFile.RestoreDirectory = True
        Me.dlgSaveFile.DefaultExt = ".rpx"

        If dlgSaveFile.ShowDialog() = DialogResult.OK Then
            '保存された新しいレポートを最近のドキュメントキャッシュに追加する
            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.dlgSaveFile.FileName
                _myArray(0) = Me.dlgSaveFile.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.SaveReport(Me._savedPath)
        End If
    End If
End Sub 'SaveReportFile
参照

関連項目

Designer クラス
Designer メンバ
オーバーロード一覧

 

 


©2003-2015 GrapeCity inc. All rights reserved.