关于ActiveReports导出csv文件的问题

收藏

客户要求将报表导出为以逗号（“，”）分割的csv文件，但是报表中代表金额的项目
本身就含有逗号（例：\123，456.00），这样导出的csv文件中代表金额的项目就由1项
变成了2项。我是用下面的代码实现csv导出功能的：

Imports DataDynamics.ActiveReports.Export.Text
CType(export, TextExport).Export(activereport.document, strCsvFilename)

请问有没有办法可以让我在调用Export前修改document的内容，这样既可以使报表显示时
金额项目保留逗号，又可以满足csv文件的正确导出（去掉金额项目中的逗号）？

ZenosZeng · ZenosZeng

我们无法直接去修改Document中的数据，有两种做法：
1、在导出之前，再次运行报表，在运行报表时不要使用千分符（“,”），报表Run完成支持在进行导出
2、直接导出已经生成报表的Document，但是在导出的时候，设置TextReport.TextDelimiter = "\t"，并且将报表导出到 stream 中，而不是直接导出到 csv 文件，然后将 stream 转换为 string 对象，并将 string 对象中的 “，”删除，最后将 "\t" 替换为 “，”

我个人比较推荐第一种做法。

safelong · safelong

我们无法直接去修改Document中的数据，有两种做法：
1、在导出之前，再次运行报表，在运行报表时不要使用千分符（“,”），报表Run完成支持在进行导出
2、直接导出已经生成报表的Document，但是在导出的时候，设置TextReport.TextDelimiter = "\t"，并且将报表导出到 stream 中，而不是直接导出到 csv 文件，然后将 stream
dof 发表于 2013-4-19 15:55:00

关于第一种方法，肯定不符合式样要求。
还不如，导出之前，把每个项目都加上引号，然后再用“，”分割。这样的格式就是标准的csv格式了。

但是如果该报表还要生成pdf，那就要区分处理了，应为pdf肯定不需要引号。

希望还有更好的办法！！

ZenosZeng · ZenosZeng

目前能够提供的方案就是2楼中提供的两种方法，因为AR报表生成之后是无法修改的，我建议使用第一种方法的原因是，从新运行符合导出要求的报表，这样就可以完全控制报表中每个控件数据的显示格式（使用的报表模板是符合导出规则的模板，而不是用于预览时使用的模板）

如果采用第二种行为，在处理某些区域控件的数据时就无法区分，比如需求中提到的 header 中的数据要保留“,”，但是Detail中的数据不需要“,”，这样在导出的 csv 文件中就无法区分哪些数据是 Header 区域的，哪些是 Detail 区域的。

safelong · safelong

目前能够提供的方案就是2楼中提供的两种方法，因为AR报表生成之后是无法修改的，我建议使用第一种方法的原因是，从新运行符合导出要求的报表，这样就可以完全控制报表中每个控件数据的显示格式（使用的报表模板是符合导出规则的模板，而不是用于预览时使用的模板）

如果采用第二种行为，在处理某些区域控件的数据时就无法区分，比如需求中提到的 header 中的数据要保留“,”，但是Detail中的数据不需要“
dof 发表于 2013-4-25 17:37:00

重新做一个模板，目前看来是比较靠谱的。
格式什么的，完全重新通过模板去控制。

这样有会增加工作量，还不如直接利用数据源，去自己写csv出力了，而不是用activereport自带的功能了

ZenosZeng · ZenosZeng

也不必全部重新多做一份报表，因为AR 6中所有的报表都是继承于 DataDynamics.ActiveReports.ActiveReport 类型，所以你可以通过以下方法来动态创建报表，然后把 Detail 之外区域的控件全部删除（如何操作根据你的需求来决定）：

private void Form1_Load(object sender, EventArgs e)
{
DataDynamics.ActiveReports.ActiveReport ar = new Report2();
foreach (DataDynamics.ActiveReports.Section item in ar.Sections)
{
if (item.Type != DataDynamics.ActiveReports.SectionType.Detail)
{
item.Controls.Clear();
}
}
}

复制代码

ZenosZeng · ZenosZeng

我修改了 xClsBaseRep 中的FncPrintOut方法，你看看是否可以正常导出问题

'getDetailSection
Dim report As New ActiveReport
'FncSetRptDetail(report)
'report.Restart()
report = Activator.CreateInstance(mClsRpt.GetType(), True)
report.DataSource = mClsRpt.DataSource
report.DataMember = mClsRpt.DataMember
For Each Item As DataDynamics.ActiveReports.Section In report.Sections
If Item.Type <> SectionType.Detail Then
report.Sections.Remove(Item)
End If
Next

复制代码

		自动登录	找回密码
密码			立即注册

[已处理] 关于ActiveReports导出csv文件的问题

6 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人