复制报表后，在vb.net中加载报表失败

Question

我有一个原创的2个报告:偏移量。RPT和roto.rpt

我需要为这两个报告创建一个新的设计(放新的标志和改变颜色)。我复制偏移量。RPT并将其命名为offset_temp。收到，我收到。RPT并命名为roto_temp.rpt

这是我的代码:

Public Sub ViewReport()
    Dim i As Integer
    i = Main.dgvColorTolerance.CurrentRow.Index
    Dim filePath As String
    If Main.Process = "ROTO" Then
        filePath = Application.StartupPath + "roto.rpt"
        If Main.lblcheckuni.Text.Contains("NEW") Then
            filePath = Application.StartupPath + "roto_temp.rpt"
        End If
    Else
        filePath = Application.StartupPath + "offset.rpt"
        If Main.lblcheckuni.Text.Contains("NEW") Then
            filePath = Application.StartupPath + "offset_temp.rpt"
        End If
    End If

    cryRpt.Load(filePath)
    cryRpt.RecordSelectionFormula = " ({command.ID} = " & Main.dgvColorTolerance.Item(Main.dgvColorTolerance.Columns.Count - 1, i).Value & ")"
    cryRpt.SetDatabaseLogon("sa_connection", "******")
    CrystalReportViewer1.ReportSource = cryRpt
    CrystalReportViewer1.RefreshReport()
    CrystalReportViewer1.Zoom(85)

当我运行它时:错误信息"加载报告失败"当lblcheckuni。文本包含"NEW"，但如果没有，则运行正常。我谷歌了一下，有人说可能文件不存在。但它确实存在。请帮助。谢谢你

Answer 1

获取Desktop路径

Dim desktop as string = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
filePath = desktop & "color_toleranceColorTolerance (Win App)ColorTolerance" & reportName