下面的示例展示了如何把报表导出为 CSV 格式。 要完成此任务,需使用 XtraReport.ExportToCsv 方法。 此示例也演示了当报表被导出为 CSV 时,哪些特定的 CsvExportOptions 可能被使用。
为了使此示例工作,首先需要 添加新报表 (命名为 XtraReport1) 到项目中,拖放一些报表控件到报表中,然后执行下面的代码 (例如,在窗体上任一按钮的 Button.Click 事件处理程序中)。 也要注意,如果想让结果文件自动被系统中默认的用于打开 *.csv 文件的程序打开,那么可以调用在本例中也展示了的 StartProcess 方法。
Show Me |
---|
在 DevExpress Code Central 数据库中可以找到完整的示例项目,网址是 http://www.devexpress.com/example=E75。 取决于目标平台类型 (ASP.NET、WinForms 等),可以在线运行本示例,或者下载自动可执行的示例。 |
C# | 复制代码 |
---|---|
using System.Text; using System.Diagnostics; using System.Globalization; using DevExpress.XtraPrinting; using DevExpress.XtraReports.UI; // ... private void button1_Click(object sender, EventArgs e) { // A path to export a report. string reportPath = "c:\\Test.csv"; // Create a report instance. XtraReport1 report = new XtraReport1(); // Get its CSV export options. CsvExportOptions csvOptions = report.ExportOptions.Csv; // Set CSV-specific export options. csvOptions.Encoding = Encoding.Unicode; csvOptions.Separator = CultureInfo.CurrentCulture.TextInfo.ListSeparator.ToString(); // Export the report to CSV. report.ExportToCsv(reportPath); // Show the result. StartProcess(reportPath); } // Use this method if you want to automaically open // the created CSV file in the default program. public void StartProcess(string path) { Process process = new Process(); try { process.StartInfo.FileName = path; process.Start(); process.WaitForInputIdle(); } catch { } } |
Visual Basic | 复制代码 |
---|---|
Imports System.Text Imports System.Diagnostics Imports System.Globalization Imports DevExpress.XtraPrinting Imports DevExpress.XtraReports.UI ' ... Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click ' A path to export a report. Dim reportPath As String = "c:\\Test.csv" ' Create a report instance. Dim report As New XtraReport1() ' Get its CSV export options. Dim csvOptions As CsvExportOptions = report.ExportOptions.Csv ' Set CSV-specific export options. csvOptions.Encoding = Encoding.Unicode csvOptions.Separator = CultureInfo.CurrentCulture.TextInfo.ListSeparator.ToString() ' Export the report to CSV. report.ExportToCsv(reportPath) ' Show the result. StartProcess(reportPath) End Sub ' Use this method if you want to automaically open ' the created CSV file in the default program. Public Sub StartProcess(ByVal path As String) Dim process As New Process() Try process.StartInfo.FileName = path process.Start() process.WaitForInputIdle() Catch End Try End Sub |