ar13导出Excel出错

登录

我导出的代码如下，数据动态绑定的
''' <summary>
''' 导出
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Protected Sub BtExcel_Click(sender As Object, e As EventArgs) Handles BtExcel.Click
      Dim _reportDef As New GrapeCity.ActiveReports.PageReport(New System.IO.FileInfo(Server.MapPath("ProcurementVolumeExcel.rdlx")))
      AddHandler _reportDef.Document.LocateDataSource, AddressOf Me.runtime_LocateDataSource
      'Me.WebViewer1.Report = _reportDef
      Dim _reportRuntime As New GrapeCity.ActiveReports.Document.PageDocument(_reportDef)
      Dim XlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
      Dim ms As New System.IO.MemoryStream()
      XlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
      XlsExport1.Export(_reportRuntime, ms)
      Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
      Response.AddHeader("content-disposition", Server.UrlPathEncode("attachment;filename=" + "ProcurementVolume.xlsx"))
      Response.BinaryWrite(ms.ToArray())
      Response.End()
End Sub
错误截图如下：

KearneyKang · KearneyKang

你好导出Excel的代码，因为你使用的是动态数据源绑定，所以需要这样先加载动态数据源

protected void Button1_Click(object sender, EventArgs e)
{
GrapeCity.ActiveReports.PageReport rpt = new GrapeCity.ActiveReports.PageReport(new System.IO.FileInfo(Server.MapPath(@"Reports\RDL报表.rdlx")));

复制代码

protected void Button1_Click(object sender, EventArgs e)
      {
         GrapeCity.ActiveReports.PageReport rpt = new GrapeCity.ActiveReports.PageReport(new System.IO.FileInfo(Server.MapPath(@"Reports\RDL报表.rdlx")));
         rpt.Document.LocateDataSource += new LocateDataSourceEventHandler(LocateData);
         GrapeCity.ActiveReports.Document.PageDocument reportDocument = new GrapeCity.ActiveReports.Document.PageDocument(rpt);

         // Provide settings for your rendering output.
         GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings excelSetting = new GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings();
         excelSetting.FileFormat = GrapeCity.ActiveReports.Export.Excel.Page.FileFormat.Xlsx;
         GrapeCity.ActiveReports.Extensibility.Rendering.ISettings setting = excelSetting;

         // Set the rendering extension and render the report.
         GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension excelRenderingExtension = new GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension();
         GrapeCity.ActiveReports.Rendering.IO.MemoryStreamProvider outputProvider = new GrapeCity.ActiveReports.Rendering.IO.MemoryStreamProvider();
         reportDocument.Render(excelRenderingExtension, outputProvider, setting.GetSettings());

         Response.ContentType = "application/vnd.ms-excel";
         Response.AddHeader("content-disposition", "inline;filename=MyExport.xls");
         System.IO.MemoryStream ms = new System.IO.MemoryStream();
         //outputProvider.GetPrimaryStream().OpenStream().CopyTo(ms);
         Response.BinaryWrite(ms.ToArray());
         Response.End();

      }

wuliao5945 · wuliao5945

一样的错误呀，而且加载动态数据源的代码我之前程序里已经加了
      Dim _reportDef As New GrapeCity.ActiveReports.PageReport(New System.IO.FileInfo(Server.MapPath("ProcurementVolumeExcel.rdlx")))
      AddHandler _reportDef.Document.LocateDataSource, AddressOf Me.runtime_LocateDataSource
加载事件如下：
Sub runtime_LocateDataSource(sender As Object, args As GrapeCity.ActiveReports.LocateDataSourceEventArgs)

      If args.DataSet.Query.DataSourceName = "DataSource1" Then

         If args.DataSet.Name = "ProcurementVolume" Then

            args.Data = CreateProcurementVolume()

         End If

      End If

End Sub

KearneyKang · KearneyKang

现在具体报什么错误

wuliao5945 · wuliao5945

No data has been set. Please specify either a DataSet or a DataView to use
和上面截图里的一样

Lenka.Guo · Lenka.Guo

您在打印的这个方法里面，加断点，调试下，看看有没有进这个方法，以及DataTable是否返回。
如果实在不行，建议您把示例给我们发过来，我们这边验证测试下。

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

[已处理] ar13导出Excel出错

本帖子中包含更多资源

5 个回复

圣诞拼拼乐

微信认证勋章

讲师达人

悬赏达人

元老葡萄

活字格认证