Crystal Report - Pass DateRange 매개 변수

Question

CR 관련 작업이 비교적 새롭습니다. vbscript를 통해 이전에 실행 된 많은 오래된 보고서를 vb.net과 함께 실행하도록 최근에 변환 한 적이 있습니까?

나는 일할 수없는 특정 보고서가 있습니다. 실행하려면, 그것은이 보고서를 호출하고 내 보낸 된 VBScript로 "DATERANGE"

라는 매개 변수 필드에 저장하는 날짜 범위를 기대하고, 코드를 전달하는이 DATERANGE 매개 변수했다 :

Set crParms = CrystalReport.ParameterFields 
crParms.Item(1).AddCurrentRange CDate(StartDate), CDate(EndDate), 3 

누구든지이 코드가 vb.net에서와 같이 보일 것 같은 것으로 나를 도울 수 있습니까? 나는 보고서에서 "DateRange"매개 변수가 하나의 변수 인 것처럼 약간 혼란 스럽습니다. 날짜의 수집을 기대하고 있습니까?

나는 보고서를 호출하고 날짜 범위를 전달하고 보고서를 내보내는 간단한 콘솔 프로젝트를 만들고 있습니다. 나는 보고서를 내보내는 코드를 파악할 수 있었으며 잘 작동했다. 보고서에 날짜 범위를 전달하는 방법을 알아야합니다.

감사합니다.

Answer 1

나를 위해 일하고 결국 무엇을

,이 Crystal 보고서에서 단일 DATERANGE 매개 변수 VB.NET에서 두 날짜를 전달하는 다른 사람 도움이 필요하다해야 :

Const PARAMETER_FIELD_NAME As String = "DateRange" 

Dim startDate as Date 

Dim endDate as Date 


<other code> 


Dim crParameterFieldDefinitions As ParameterFieldDefinitions 
Dim crParameterFieldDefinition As ParameterFieldDefinition 
Dim crParameterValues As New ParameterValues 
Dim crParameterRangeValue As New ParameterRangeValue 


crParameterRangeValue.StartValue = startDate 
crParameterRangeValue.EndValue = endDate 


crParameterFieldDefinitions = cryReport.DataDefinition.ParameterFields 
crParameterFieldDefinition = crParameterFieldDefinitions.Item(PARAMETER_FIELD_NAME) 
crParameterValues = crParameterFieldDefinition.CurrentValues 


crParameterValues.Clear() 
crParameterValues.Add(crParameterRangeValue) 
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) 


<other code> 

을 나는 this tutorial 매우 도움이 될 찾았어요 위에서 나를 위해 일한 코드를 작성했다.

Answer 2

Dim cryRpt As New ReportDocument 
    cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt") 

    Dim crParameterFieldDefinitions As ParameterFieldDefinitions 
    Dim crParameterFieldDefinition As ParameterFieldDefinition 
    Dim crParameterValues As New ParameterValues 
    Dim crParameterDiscreteValue As New ParameterDiscreteValue 

    crParameterDiscreteValue.Value = enteredDate 
    crParameterFieldDefinitions = _ 
     cryRpt.DataDefinition.ParameterFields 
    crParameterFieldDefinition = _ 
     crParameterFieldDefinitions.Item("Orderdate") 
    crParameterValues = crParameterFieldDefinition.CurrentValues 

    crParameterValues.Clear() 
    crParameterValues.Add(crParameterDiscreteValue) 
    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) 

    CrystalReportViewer1.ReportSource = cryRpt 
    CrystalReportViewer1.Refresh()