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
错误截图如下：

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

1. protected void Button1_Click(object sender, EventArgs e)
   
2.         {
   
3.             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();

        }

一样的错误呀，而且加载动态数据源的代码我之前程序里已经加了
        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

现在具体报什么错误

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

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