Vb net将多个值传递给crystal report参数 [英] Vb net pass multiple values to crystal report parameter

问题描述

我有一个查询中有3个参数的水晶报表，我想将多个值传递给第一个参数已经在cr查询中有IN {？car}并检查了cr编辑器中的多个值尝试了这个并且可以使用一个值，如何从列表框中插入多个？

 cryRpt.Load（  C：\ Users \ asus \visual Studio 2015 \Projects\CrystalReport1.rpt）
 cryRpt.SetParameterValue（  car，Form2.TextBox20.Text）
 cryRpt.SetParameterValue（  dt1，Form2.DateTimePicker1.Text）
 cryRpt.SetParameterValue（  dt2，Form2.DateTimePicker2.Text）
 

我尝试过：



试图传递

 cryRpt.SetParameterVal ue（  car，Form2.listbox1.items）
 

有3个项目，但报告没有返回记录

解决方案

有时对我来说最好先创建参数值并添加到报告参数集合中。



示例：

  Dim  parameterFields 作为 新 ParameterFields 
  Dim  parameterField 作为 新 ParameterField 
  Dim  parameterRange  as  新 ParameterDiscreteValue 
 
 parameterField.ParameterFieldName = < span class =code-string>  fieldName ' 这应该在报告中匹配 
 paramterRange.Value =   someValue 
 parameterField.CurrentValues.Add（parameterRange）
 parameterFields.Add（paramterField）
 cryRpt.ParameterFieldInfo = parameterFields 
 
 CrystalReportViewer1 .ReportSource =   SomeReport.rpt 
 CrystalReportViewer1.Visible = 真 

I have a crystal report with 3 parameters in query, I want to pass multiple values to first parameter already in cr query has "IN {?car}" and checked the "multiple value" in cr editor tried this and works with one value, how to insert multiple from a listbox?

cryRpt.Load("C:\Users\asus\visual Studio 2015\Projects\CrystalReport1.rpt")
       cryRpt.SetParameterValue("car", Form2.TextBox20.Text)
       cryRpt.SetParameterValue("dt1", Form2.DateTimePicker1.Text)
       cryRpt.SetParameterValue("dt2", Form2.DateTimePicker2.Text)

What I have tried:

tried to pass

cryRpt.SetParameterValue("car", Form2.listbox1.items)

with 3 items but report returned no records

解决方案

Sometimes for me it worked better to create the Parameter values first and add to the report parameters collection.

Example:

Dim parameterFields As New ParameterFields
Dim parameterField As New ParameterField
Dim parameterRange as New ParameterDiscreteValue

parameterField.ParameterFieldName = "fieldName" ' This should match in the report
paramterRange.Value = "someValue"
parameterField.CurrentValues.Add(parameterRange)
parameterFields.Add(paramterField)
cryRpt.ParameterFieldInfo = parameterFields

CrystalReportViewer1.ReportSource = "SomeReport.rpt"
CrystalReportViewer1.Visible = True

这篇关于Vb net将多个值传递给crystal report参数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！