Передача параметров диапазона в объект Crystal

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