将范围参数传递给Crystal对象

Posted 2021-04-17

我有一个已设计的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 & "ReportsCPSMPA.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 & "ReportsEmails" & v_ACCNO & "MPA.pdf")

我相信我传递参数的方式是不对的。

答案

我设法通过改变我将值传递给日期范围参数的方式来解决问题。它可能会帮助另一个人。在下面找到它。

RegPort.ParameterFields（1）.AddSurrentwalue（CURRENTLY）OBGReport.ParameterFields（2）.AdSurrentRang V_STATDT，in_ENDDT，krRanginslodeLoverBund