.Net 和 Crystal Reports 丢失 pdf 文件

Question

我正在使用 VS 2003 (Framework 1.1) 和 Crystal Reports for Visual Studio .NET 开发一个用 C# 开发的应用程序。 此应用程序制作发票并以 PDF 格式打印。

这样做也不例外，但是在开发环境中，文件在物理上是不存在的，我找不到。在生产环境中，工作没有问题：文件存在于指定路径中。

主要区别在于运行应用程序的机器。 开发机器是虚拟的 （Hyper-V 版本：6.2.9200.16384）在 Windows 8 Pro 上运行的 Windows XP SP3 2002 版本。开发是在虚拟机中完成的。 生产机器是 Windows XP SP3 2002。

我已经试过了：

• 更改机器中标识的用户。
• 将导出格式更改为 doc、xls，并且在两种环境中始终具有相同的结果。
• 更改记录文件的路径，避免使用“我的文档”。
• 谷歌搜索。

申请代码为：

// (Guarantee that all variables have the right type, are initialized and have a consistent value. txtDesde and txtHasta are textboxs)
    string strFile = "myfile.pdf";
    string strDirectory = @"myFolder\";
    string strSubDirectory = @"MySubFolder\";
    
    if (!System.IO.Directory.Exists(strDirectory))
    {
        System.IO.Directory.CreateDirectory(strDirectory);
    }

    strDirectory + = strSubDirectory;
    if (!System.IO.Directory.Exists(strDirectory))
    {
        System.IO.Directory.CreateDirectory(strDirectory);
    }
    
    ReportClass a = new myCrystalReport(); // It is an existing Crystal Report and in an appropriate format
    a.ResourceName = "myCrystalReport.rpt";
    a.SetDataSource (myDataSet); //myDataSet is a System.Data.DataSet, loaded with the necessary and consistent data
    DiskFileDestinationOptions dfdo = new DiskFileDestinationOptions();
    dfdo.DiskFileName = strDirectory + strfile;
    a.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile;
    a.ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat;
    a.ExportOptions.DestinationOptions = dfdo;

    //-> the next two lines have the same result
    //a.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, strDirectory + strfile); 
    a.Export ();

    a.Dispose ();

仅此而已，并且在两种情况下均无例外地运行。

正如我所说，唯一的问题是在我的开发环境中没有创建文件，而在生产机器中该文件没问题。

我从开发机器发布并安装de应用程序到生产机器。

由于应用程序在生产环境中工作，因此在业务中没有人如此关心。我特别感兴趣，因为我开发了。

当然，非常感谢。

Answer 1

首先你需要添加如下单选按钮：

      <tr>
          <td>
          </td>
          <td>
          <asp:RadioButtonList ID="rblFormat" runat="server" RepeatDirection="Horizontal" CssClass="Profiletitletxt">
          <asp:ListItem Text="PDF" Value="1" Selected="True"></asp:ListItem>
          <asp:ListItem Text="MS Word" Value="2"></asp:ListItem>
          <asp:ListItem Text="MS Excel" Value="3"></asp:ListItem>
          </asp:RadioButtonList>

          </td>
          <td>
          </td>
          </tr>

在绑定报告的代码中添加：

           If rblFormat.SelectedValue = 1 Then
                cryRpt.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "ExportedReport")
            ElseIf rblFormat.SelectedValue = 2 Then
                cryRpt.ExportToHttpResponse(ExportFormatType.WordForWindows, Response, True, "ExportedReport")
            ElseIf rblFormat.SelectedValue = 3 Then
              ExportDataSetToExcel(DT, "ExportedReport")
            End If

对于 Excel 添加：

        Public Shared Sub ExportDataSetToExcel(ByVal ds As DataTable, ByVal filename As String)
        Dim response As HttpResponse = HttpContext.Current.Response
        response.Clear()
        response.Buffer = True
        response.Charset = ""
        response.ContentType = "application/vnd.ms-excel"
            Using sw As New StringWriter()
            Using htw As New HtmlTextWriter(sw)
                Dim dg As New DataGrid()
                dg.DataSource = ds
                dg.DataBind()
                dg.RenderControl(htw)
                response.Charset = "UTF-8"
                response.ContentEncoding = System.Text.Encoding.UTF8
                response.BinaryWrite(System.Text.Encoding.UTF8.GetPreamble())
                response.Output.Write(sw.ToString())
                response.[End]()
            End Using
        End Using
    End Sub