将参数传递给Windows窗体（VB.net）中的Crystal Report

2 回答

• 1

  试试这个：

  Dim paramDV As New ParameterDiscreteValue()
  paramDV.Value = "Parameter Value"
  report.ParameterFields("@ParameterName").CurrentValues.Clear()
  report.ParameterFields("@ParameterName").DefaultValues.Clear()
  report.ParameterFields("@ParameterName").CurrentValues.Add(paramDV)
  

  其中 report 是您的Crystal Report对象

  回复于 2024-04-29T05:10:44+08:00
• 1

  Dim myParameterFields As ParameterFields
  Dim myParameterField As ParameterField
  Dim myDiscreteValue As ParameterDiscreteValue
  
  myParameterFields = New ParameterFields
  myParameterField = New ParameterField
  myDiscreteValue = New ParameterDiscreteValue
  
  myParameterField.ParameterFieldName = "@Date"
  myDiscreteValue.Value = cj
  myParameterField.CurrentValues.Add(myDiscreteValue)
  
  myParameterFields.Add(myParameterField)
  
  myParameterField = New ParameterField
  myDiscreteValue = New ParameterDiscreteValue
  
  CrystalReportViewer1.ParameterFieldInfo = myParameterFields
  
  CrystalReportViewer1.Refresh()
  CrystalReportViewer1.ReportSource = "D:\YOGESH KA PROJECT\stationary\stationary\Forms\BillReport.rpt" ' Assign Report Source to CRV
  

  回复于 2024-04-29T05:10:44+08:00