Question

我有一个已经设计好的Crystal报表，它具有两个参数：AccountNo和Transaction_Date。

AccountNo是离散值

Transaction_Date是日期范围参数（范围的开始和范围的结束）。

我打算将此参数通过vb6代码传递。 我这样做的尝试是为我显示/导出空白报告。

以下是代码：

    Set objCrystal = New CRAXDRT.Application
    objCrystal.LogOnServer "pdsodbc.DLL", "SMARTHR", sTrDSource, CStr(strUserName), CStr(strPwd)

    Set objReport = objCrystal.OpenReport(App.path & "\Reports\CPSMPA.rpt", 1)

    objReport.DiscardSavedData
    objReport.ParameterFields(1).AddCurrentValue (v_ACCNO)
    objReport.ParameterFields(2).MaximumValue = v_ENDDT
    objReport.ParameterFields(2).MinimumValue = v_STATDT
    ''objReport.ParameterFields(1).AddCurrentRange(v_STATDT,v_ENDDT,crRangeNotIncludeUpperLowerBound)
    ExportReportToPDF objReport, (App.path & "\Reports\Emails\" & v_ACCNO & "MPA.pdf")

我认为我传递参数的方式不正确。

Answer 1

我设法通过更改将值传递给日期范围参数的方式来摆脱困境。它可能会帮助另一个人。在下面找到它。

objReport.ParameterFields（1）.AddCurrentValue（v_ACCNO） objReport.ParameterFields（2）.AddCurrentRange v_STATDT，v_ENDDT，crRangeIncludeLowerBound

将范围参数传递给Crystal对象

1 个答案: